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INTRODUCTION 



For the average PET user the prospect of writing a set of 
programs to perform, say, a business application is daunting. 
Many don't even try, preferring to employ someone to do the 
job or buy an off-the-shelf package. What is daunting is not 
simply writing a program, every PET user will probably have 
written dozens of simple little programs for his own use. It 
is the size of a set of application programs, the thought of 
writing several thousand lines of Basic code. Allied to this 
is the question of how and where to start, and what exactly 
one wants the program to do. These problems are purely a 
mental block, since any person of average intelligence can 
write and design such a program. Given a logical framework on 
which to build, plus a few aids in. the form of standard 
subroutines, the process of writing an applications program 
becomes considerably easier. 

Defining the Program Structure. 

The process of writing and running a program is one of 
defining a problem or process from the very general level of 
thought used bv the human mind to the very precise sequence 
of instructions used by the machine. The lowest, and 
therefore the most precise level, is the binary code used by 
the microprocessor; this is the level used in machine code 
programs. At a higher level are the commands of a Basic 
interpreter. These allow instructions to be given to the 
processor in easilv understood English language statements. 
The execution of one instruction statement in Basic may 
require several hundred steps of machine code program. The 
next level above the Basic interpreter is the subroutine. 
Thi - S is a block of code written in Basic to perform a 
sperific function. Subroutines give the programmer higher 
level functions than those available in Basic. Thus, a 
subroutine to sort an array into alphanumeric order gives the 
programmer a new command, summarised as: SORT ARRAY X. Just 
as the Basic command represented several hundred machine code 
commands, so a subroutine mav consist of a hundred Basic 
commands. The first level of command generalisation above the 
subroutine is the program, consisting of a collection of 



subroutines. Above the program is the highest level, the 
suite of programs, this is a collection of several programs 
which are united by a common data base and collectively 
perform an application, eg:stock control. 
The existence of a hierarchy of conceptual 
generalisations is very useful since it allows the process of 
program writing to be split into a series of easily defined 
stages. This firstly gives the programmer a logical sequence 
of operations and secondly allows much of the work associated 
with the lowest levels to be automated. This is done by using 
a high level language like Basic which removes the necessity 
of writing in the lowest or machine code level. Likewise the 
amount of Basic code required to be written can be 
considerably reduced by using standard subroutines. Entire 
programs within a program suite may even be standard and 
therefore usable in many different program suites. 
The first stage in writing a large applications program 
is to define the exact function of the program suite. It is 
also important at this stage to determine what hardware will 
be used by the program, together with the limitations and 
capabilities of that hardware. It is necessary to know what 
hardware is being used since this determines the size of the 
program, and the nature and organisation of data files used 
by the program. Thus the approach taken in writing a program 
for a 32K PET with 3040 disk and 3022 printer will be totally 
different to that taken for the same application on an 8K PET 
with cassette deck. With these limitations in mind, the first 
stage is to write a short description of the application, 
with a definition of the input, output, and data files. 
Consider a hypothetical user with a 32K PET, dual 2040 
floppy disks and 3022 printer wishing to use this svstem to 
implement a library reference data base. The first stage in 
system design is for the user to decide exactly what the 
program must do. In this case the program is required to 
reference a book or books from a small library of 500 titles 
by either subject matter or author. The user wants to tvpe in 
a subject in which he is interested and the computer to 
produce a list of book titles in his library containing 
information on that subject. Similarly the user wants to 
produce a list of books written bv a particular author. The 
problem is a fairly straight forward one of data access and 
retrieval from a data base stored on disk. The program can be 
divided into four parts: 

UData entry: used to enter details of new titles added to 
the library. 

2)Data update: needed to correct mistakes in the data base or 
to delete entries whose titles have been removed from the 
library. 

3)Data access: the part of the program which performs the 
user's requirement of accessing data from the data base in 
response to a particular input. 



4)Data file maintenance: to allow the user to make security 
backup copies of the data file. It will also perform 
functions such as sorting the data file into alphabetical 
order. 

You will notice that of the four parts of this program three 
parts are concerned with the upkeep of the data file. This is 
typical of all programs using disk data bases. Each of these 
four program parts are totally independent of the other parts 
and interact with each other only via the data base. Since 
each part is independent it can be written as a separate 
program, which makes life much simpler for the programmer - 
only one part of the program need be written at a time. Each 
part can be stored on disk as a separate program and loaded 
by the user when required. A collection of programs like this 
constitutes the program suite. 

File Structure. 

The factor unifying all the programs in a suite is that 
they all use the same data base. Before any programs are 
written, the nature and format of the data must be defined. 
This is probably the most critical and trickiest part in the 
design of a program: bad file structures are the cause of a 
lot of poor programs. Unfortunately there is no easy rule of 
thumb which can be used to select the best kind . of data files 
to be used in a program. The only rule worth remembering is 
that if the data file is very large, by which I mean a file 
which contains more data than can be stored in the machine's 
internal memory, then that file should in the majority of 
cases be a random access file. Short files which can be 
loaded into arrays and stored in core are best stored on disk 
as sequential files. The reason for this rule is that it 
makes data access times considerably faster and also makes 
file maintainance much easier. 

There are three principal ways in which data can be 
stored: sequential disk (or tape)files, direct access disk 
files, and data stored within a program as data statements. 
Each of these methods has its advantages and disadvantages 
and the selection of method used depends on finding which is 
best suited to the application. Sequential files are the 
simplest to use since the operating system automatically 
organises the information. In a sequential file, data items 
are recorded one after the other to create a chain of data, 
with the first item recorded at the head and the last item at 
the tail of the chain, in "sequential" order. The virtue of 
sequential files is that data items can be of variable 
length, thereby eliminating wasted disk or tape storage 
space. The disadvantage of sequential files is that each time 
a record is read the entire file in front of that record must 
be read, since there is no way in which the program can 
determine the starting location cf a particular record. Also, 



the only way in which an item can be inserted or amended in a 
sequential file is by writing an updated version of the 
entire file. 

Direct access files differ from sequential files in 
that one can specify the track, the sector on that trark, and 
^ r i a H raC p ter .Ji thin that sector on which a record is to be 
recorded. Provided a record of the location of each record is 
kept, then direct access files allow one to go straight to a 
record without reading all preceding records on the file! 
Direct access files thus allow information to be accessed in 
a non-sequential or random order (for this reason direct 
access files are usualy known as random access files). It is 
unnecessary to rewrite the entire file to amend a record on a 
direct access file. However, records on a random access file 
n7 S thJ T V , length ' ° therwise the task of keeping track 

The uJ°TT f> eaCh u reC ° rd beCOmes excessively complex. 
The use of fixed length records means that direct access 
files use more space than sequential access files to store 
the same data. The primary advantage of random access files 
is speed of access. The disadvantage of direct access on the 
PET depends on which version of Basic and disk operating 

^of'n ln y ° Ur machine - Machines using P B 
create"" d ^° "^ faIr ' V COm P ,ex Programming to 

h,tPr ,t USe dlreC n t 3CCeSS fileS ' This has h *™ cured on 

later machines using Basic 4.00 and DOS 2.00. These machines 
have le to use relative record file command Rela^ 

record means that data is accessed bv record number ie 
record 50 is the 50th record on the fi,e. Direct a Is Is" 
the principal choice for all data base files where large 

pr^rlT" ° f ^^ arC t0 be St ° red «" d — -" by rR I 

within It 1S desirabJe in som ? cases to store data directlv 

of raoid *cr* ram V ■**** Statem ^ s - This has the advantage 
of rapid access and , s particularly useful in tape based PET 

sratTm-enr^e?" T ^t " amended USi ^ ™ au ™ datl 

cessed P fth ° r subroutine. Data statements can be 

accessed either by a sequential search or by a relative 

record method. The obvious disadvantage of storing data 

sto ed fn ^oT^ne 35 *"? ^^^ * that *"" all^datt *S 

to the i2 0r n f maximum size of the data file is limited 

is hi available memory. Another disadvantage which 

is shared by sequent.al files stored in arrays is that data 
entered or updated can be lost if the machine is switched off 

'""in thT'ex the , n6W ^^ ° r data - tape or^k! 
nmhii example program, careful examination of the 

laTgtr ir V th a e V hat th T ^J" data fUeS are re ^- d - The 

e ad dpt 7"! V s b3Se flle Which contalns b °ok 
titles and details of the contents: this file is to ho 

organised as a random access file. The othe two files are 

both sequential: an author file and a subject file It is n 

access. Each record contains, say, the author's name followed 



by a series of pointers to records in the random access main 
data base file. These pointers are simply record numbers: in 
a random access file system this is all the information 
required to access a particular block of data from a file. 
The advantage of using a short file consisting of a key and 
one or more pointers into a larger file is primarily one of 
speed, but also it is much easier to sort a short key file 
than a long random access file. Another advantage in using 
short key files is that one can have multiple key files, just 
as here we have an author file and a subject file. 
Having decided the types of file to be used in the 
program suite, the example is very typical of many 
applications programs, we must decide on what data format is 
to be used in those files. Very careful thought should be 
given to data formatting if optimum usage is to be made of 
the storage capacity of the machine. First let's look at 
random access files. A random access file consists of a set 
of records: there may be one hundred records, a thousand or 
even ten thousand, the number depending on the application. 
In the example the maximum number of titles is 500 therefore 
we do not require more than 500 records in the random file. 
Each record is of the same length, common record lengths are 
128 or 256 bytes or some other power of 2, since using a 
record 2 56 bytes long makes for greater reliability because 
this is the natural organisation of the computer system. 
Since the PET disk is divided into 256 byte blocks it is 
easiest if we use one block per random access record, giving 
a nractical maximum of 640 records on a disk. The first step 
is to jot down a list of all the different data you wish 
stored in each record and against each item to note the 
maximum number of bytes required to store it, together with a 
note of whether the data is numeric or alpha. A running total 
of the number of bytes used should be kept since it is very 
important that the total should not exceed the maximum which 
we have set for the record, in this case 256 bytes. Also 
great care should be taken that each data item, or field as 
it is known, within a record has sufficient space. The space 
must accommodate the maximum possible size data entry 
necessarv, to ensure transfer of all required information in 
that field. In our example the list would probably look 
something like this: 



AUTHOR 


30 


Alpha 


TITLE 


60 


Alpha 


DATE 


6 


Numeric 


CONTENTS 1 


80 


Alpha 


CONTENTS2 


80 


Alpha 



There are four alpha fields in the record and one numeric. 
Records should be stored so that all the fields are of the 
*ame variable tvpe. In the example the date should be 
converted to an alpha string before it is entered into the 



record. 

alpha 

quoted 

shorter 

of the 

i n s t a 

SHAKE 

Using 

at the 

making 

Basic 



The date field always occupies 6 bytes but the four 

fields are of variable length; the number of bytes 

in Table 1 are the maximum for each entry. Any entry 

than the maximum is padded out with spaces on the end 

string to bring it up to the maximum length. For 

^pVaop ™ ak6Speare ' W Wil1 be stored as 
M'tARt.W (the dashes represent spaces). 

this method we know that the title field always starts 

f lst byte of a record and ends on the 90th byte, 

it easier to use the string manipulation commands in 

to retrieve each item of data from a record. 



20 



Author 



70 



Title 



76 



Date 



255 



Contents 



Since it is envisaged that our example random access file 
will have a maximum of 500 records each of 256 bytes, the 
total data base will have a maximum size of 125K bytes. This 
will fit nicely on one disk, a fact which should alwavs be 
aimed for when designing a program since it is good practice 
to use one disk drive for data and the other for program 
storage. By the same token it is not desirable to change 
disks during program execution since this invariably leads to 
unreliability and a greatly increased chance of losing a data 
i lie. ° 

While random access records must always have a fixed 
length, records in sequential files can have either fixed or 
variable lengths. The choice depends on the application. In 

fix?d ££th H at f WH1 SlWayS bG the Same len * th > ma king * 
fixed length and format sequential file the logical choice. 

^nntnf.r. f-i ran J d ° m aCC6SS file in our sample each 

sequential file record may contain multiple fields,so fixed 
format^xed length records are the answer. They are much 
easier to dissect than variable length records. But there are 

??Hofi aUOnS ' 3nd . ° Ur exam P le is °™ of them, where fixed 
length sequential records are impractical. Each of the two 
sequential files contains a variable number of records. Each 
record consists of a key (the author's name or his subject) 
and a variable number of numeric pointers to records in the 

annli.ITf aCCeSS , „ fHe - T ° USe fiX6d Ien * th records in this 
application would require the allocation of sufficient space 

in each record to accommodate the maximum length key word 
together with the maximum number of pointers. Since the file 
is to be stored in core memory as an array, the large amount 
oi space (and therefore memory) wasted by using fixed length 
hav.f- T^ 5 1^ „ t0taUy ^Practical. When records do not 
fi.lH tk lengt , hS ' demarcation markers must be used between 
lields. The marker most commonly used is an asterisk. To 
dissect this type of record, search from left to right for 
the f irs t occurrence of the marker character. The record Z 



the right of the marker is removed and the next marker 
searched for. This method is clumsier than that used for 
fixed length fixed format records, but is just as effective. 
In our example a record in the author file may be stored as: 

SMITH. 3* 1 4*56*79* 125*256*428*0 

The first field is a key - the author's name - SMITH. J. The 
next and subsequent fields are the pointers to the random 
access file showing that titles written by this author are 
stored in records 14,56,79, 125, 256, and 428. The zero is used 
as an end of record marker. Using this method the author's 
name can be as long as necessary and can be followed by as 
many references as are required (subject only to the maximum 
length of a record which is limited by the 80 character 
buffer). 

Whatever file type is used, pointers must be used to 
locate the last entry on the file. This is vital if one is to 
be able to add further data to the file without risk of 
erasing existing data. In a random access file record zero 
could be allocated for this purpose, providing that the 
programmer remembers that this record must only be used to 
contain the number of the next free record. Alternatively 
this information could be stored, together with other 
information essential for the correct operation of the 
system, in a special parameter file. Parameter files are very 
useful in any program suite, since they not only allow 
variables to be passed between programs or stored between 
runs, but, they also allow a package to be amended to suit a 
particular user's requirements. In a sequential access file 
the easiest method is to use a special end record as the last 
record on the file. This way one simply continues to read 
records from the file until the end record is encountered. 
The usual form of end record is one filled with a string of 
Z's thus: 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZ 

It is then a simple matter to check if, sav, the first three 
bytes of a record are "ZZZ", since the odds against this 
combination occurring naturally in text are large it is a 
reliable indication of the end of the file. The actual number 
of records in a sequential file can be obtained, as the file 
is read, by counting the records. Since the file will be 
stored in core, records can be easily added and inserted in 
the correct location using a sort procedure. The new file 
created in this way is then rewritten over the old file. If 
the file becomes larger than the available array area it will 
have to be broken into two sub files, as we have done with 
the author and subject files which could have been merged as 
one file if core space permitted. 



The Program Specifications. 

In these first stages we have defined how the data will 
Sf + °[ Y the P r °8 ram and what functions it is desired 

that the program perform. From these decisions a program 
specification can be written. This is the framework of the 
program around which the actual coding will be built. It is 
important that it is correct in every detail since a mistake 
at this stage may prove very difficult to correct later on. 
These specifications also form the base around which the 
final user documentation can be written. The specification 
should contain a complete description of the operation of 
each program in the suite showing what data is required from 
the operator, what data is to be output and which data files 
are accessed. This written description should be accompanied 
by a diagram showing the flow of data. The second part of the 
specifications should be a complete table of the data file 
structures used by the suite. The third and last part should 
be a description of how data input, and output ( either on 

«2! SC / ee K n ° r ° n a P rinter) > sh °uld be formatted. This mav 
seem to be just a cosmetic operation, but the ease with which 

nn °th e / at + H r T USe thC SyStem is almost entirel y dependent 

on the thought put into this part of the specification. 

At each stage in the program the screen layout and/or 

Da^r A° X 'Tm k* ^^ ° Ut ° n a P ieCe of s ^ 
paper. A table should be made of standard forms of input to 

L U a S t ed throughout the programs. One example would be the 

format of all date inputs. All inputs ought to be made using 

the same variable type and format since it is disturbing for 

the operator to have some inputs terminated by a carnage 

return and others not. One might make a decision to have all 

for n„lT ft" 8 n at V th 3 fiXed length P rom P* and traps 

should Lun h rieS 'H lllegal u Carrage returns ' etc. Decisions 
fnnni v M ♦ f "" ^ St3ge 3S t0 the natUre <>f any 

use^of I'SJSV erPOr Ch6Cking Pr ° CedUres ' SUCh as *« 

th* A X - iS \ g °° d id6a t0 USe fIow charts at ev ery stage in 
the design of a computer program. By displaying a process in 

LTr SU f a . ?■ lt 'I USUaHy mUCh easier "J detect" faults !n 

logic flow. Flow charts of program sequence and logic should 
be drawn for each level of the hierarchy of program 
definition. As the definition becomes more precise, process 
steps on the general definition flowchart can be replaced by 

sleo C Pr a n r ™° d, ; leS m ° re accuratel V denning that process 
need* not nf V ? u ^responding to standard subroutines 

need not of course be defined as precisely as the rest of the 
program. Extensive use of standard subroutines helps reduce 

low co c zr% the fin w flowchart - Each step ° n the fina » 

mo^e B 3 correspond either to a subroutine or one or 

more Basic commands. This final version of the flow chart can 

used as a guide when writing the program code. 



Subroutines. 

Once the specifications have been written, programming 
can begin. When working on a suite of programs it is best to 
start with data entry, since this program can then be used to 
create the data files needed to test the other programs in 
the suite. Each of these programs can be divided into a set 
of subroutines. A subroutine is a short, self contained 
program written to perform a specific function, which can be 
run by itself without the rest of the main program. The great 
virtue of using standard subroutines to build a program is 
that they need not be specific to that program, and can be 
reused in any other program requiring them. This means that 
once a good subroutine has been written it can be repeatedly 
used in other programs greatly reducing programming effort. 
The extensive use of standard subroutines is the key to 
writing good programs quickly and easily. 

Parameters. 

To make maximum use of standard subroutines the 
programmer must adopt a strict dicipline about the use of 
variable names. This is essential since a subroutine 
communicates with the main body of the program (ie the code 
which links the subroutines together) by means of input and 
output variables. Obviously a specific set of variables must 
be reserved for this purpose. These variables are known as 
parameters and there are several ways in which they can be 
supplied, or passed, between a subroutine and the main 
program or another subroutine. In this book we will use two 
methods of passing parameters. The first is known as "call by 
value and result" and the second as "call by reference". 
Formal methods of passing parameters are needed because the 
variable names used in a subroutine are unlikely to be the 
same as those used in the main program. Thus a variable used 
within a subroutine may be called PX but the value of PX is 
obtained from the main program. This subroutine may be called 
several times in a program, but the value to be passed to PX 
(this is called a formal parameter) might be stored in the 
first case in variable A and in the second case in variable Q 
(both A and are actual parameters), and so on. Unless a 
value is placed in the formal parameter from the main 
program, by setting it equal to the actual parameter used in 
the main program, then the result of jumping to the 
subroutine will be wrong. 

Call by value and result is the commonest and most 
straightforward method of passing parameters between 
subroutines written in Basic. This requires two parameter 
passing operations - one before jumping to the subroutine and 
the other after returning from the subroutine. In the first 
operation the values of the actual parameters are moved to 
the formal parameters, these are the parameters used by the 



subroutine. In the second operation the values of the 
parameters set by the subroutine are moved from the formal to 
the actual parameters. As an example: we wish to call a 
subroutine to perform an arithmetic operation on two 
variables and produce the result as a third variable. The two 
actual parameters used by the subroutine are stored in this 
case in variables A and B, and the actual result parameter in 
variable C. The formal parameters used by the subroutine are 
variables PX and PY, the formal parameter set by the 
subroutine is variable PZ. y 

Operation 1 - PX=A:PY=B 

Jump to subroutine. 
Operation 2 - C=PZ 

In this particular case all the formal parameters are either 
used or set, however, this may not always be the case. 
Suppose in the above example the subroutine has a fourth 
formal parameter PQ which is only set to one if the result of 
the arithmetic operation is negative. Sometimes the value of 
.° Wl11 be l and for the remainder of the time 0. However 
since only a negative result is being tested for, then once 
7 " set to l lt wil1 remain at 1 for all subsequent calls 
of that subroutine (unless set to prior to calling the 
subroutine). In another situation only the formal parameter 
rx may be passed to the subroutine instead of PX and PY. Here 
one would normaly want the value of PY to default to zero, 
unless PY is actually set to the value will be that entered 
when the subroutine was last called. In these cases we need 
to know which parameters are used and which are set. The 
standard method is to regard all parameters as both used and 
returned at all times, meaning that where no actual 
parameters are passed to formal parameters (as in the case of 

P »f ra ,T e u erS US6d ° nly for result s) the formal parameters 
should be set to their default value. The two operations for 
passing parameters now become: 

Operation 1 - set all formal input parameters equal to their 
corresponding actual input parameters. Set all formal output 
parameters to their default value. 

Jump to subroutine. 
Operation 2 - set all actual output parameters equal to their 
corresponding formal output parameters. Set all formal input 
parameters to their default value. 

The passing of parameters using the method of call bv 
reference in Basic programs is neither as simple or as common 
as the call by value and result method. The principle of call 
by reference is that the subroutine and main program are 
g K Ven D n t -r e address of the Parameter rather than its value. On 
the FhT this means that values are stored and read from a 
protected area of memory using the PEEK and POKE commands. 
Call by reference has two virtues. First it allows the easy 
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incorporation of machine code subroutines within a Basic 
program. Secondly it allows parameters to be passed between 
programs in a suite, where normally all variables would be 
erased by the process of loading a program. This method does 
however pose several problems. Firstly all variables must 
have a fixed length and format, since a set number of 
locations starting at a specific address will be allocated to 
each variable when the program is written. Secondly the 
conversion of variables from strings or numeric variables to 
POKE values and vice versa requires in many cases fairly 
lengthy Basic code. This problem does not effect numeric 
variables with values of less than 256 since these can be 
stored as a single byte. The passing of parameters by 
reference is thus ideal for use with status flags or 
counters. 

Debugging. 

Once a program has been written it must be thoroughly 
tested and debugged before it is incorporated into the suite. 
Every permutation of input or output should be checked 
against the expected input or output on the flow chart and 
specifications. Files should be checked that data is stored 
in the correct format, and that data read by the program from 
file is correct. One way of checking programs is to insert 
break points (a STOP command) into the program at points 
where one wishes to check the contents of variables etc. A 
useful feature of PET interpreter Basic is the ability to 
check the contents of variables after a break by printing the 
variable in the immediate mode. This way one can work through 
a program checking on the logic flow. To check file handling, 
test files can be created using the input program in the 
suite (this is the first program in the suite to be written). 
If the program being written is the input program, then the 
onlv existing files required will be parameter files, these 
can be created by small test programs written for the 
purpose. Similar test programs can be used to check the 
contents of files written by the program. 

The process of debugging a program can be the most 
tedious and time consuming part of writing a program. It must 
be noted that the amount of time spent debugging is very 
often inversely proportional to the time spent on the initial 
planning and specification of the program. The process of 
debugging is also made easier if REM statements are liberally 
used throughout the program. One can then easily determine 
the exact function of a block of code without having to trace 
it through the whole code. 

The Program Suite. 

Once all the programs in the suite have been written 
and debugged, they can be integrated to form the program 
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suite by means of a menu program. A menu program is simply a 
means of selecting and loading a program without having to 
use the normal load command. Menus are also used within 
programs to select one of a range of functions or options. 
Having linked the programs together via the menu, the 
complete suite should be tested, to ensure that there are no 
problems in transfering data or parameters between programs. 
As with debugging individual programs, the chances of faults 
appearing at this stage are considerably reduced if 
sufficient care was taken in the program design and 
specification stages. 



Notes: 



The majority of subroutines have been written to conform to 
certain standards. First, all subroutines have line numbers 
above 20000. Second, major parameters passed between the 
subroutine and the main program usually begin with the 
character P. Third, wherever possible subroutine calls within 
subroutines have been avoided (the principle exception to 
this is the subroutine, CURSORCONT). 

To make the reader's use and comprehension of the 
subroutine's function, and integration into a program easier, 
the majority of subroutines have been given sample calling 
routines. These routines usually start at line 1000 and end 
prior to line 2000. Line numbers before 1000 usually contain 
variables and constants used by the subroutine. 



All the subroutines and programs in this book are available 
on disk, copies may be obtained from Computabits Ltd, P.O. 
Box 13, Yeovil, Somerset, price £10.00. 
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DATA INPUT 



Data entry poses several problems when writing a 
program. Firstly the normal INPUT command's inability to deal 
with commas, colons or null entries. Secondly the need to be 
able to prevent the wrong keys being pressed or the wrong 
variable type entered (eg. an alpha character entered in a 
numeric input). Thirdly numeric and date inputs should be 
checked for incorrect entry; the facility should also exist 
for controlling the maximum and minimum number of characters 
in any entry. Lastly data input should be easy for the 
operator to use, incorporating full editing both of the 
current entry and preceding entries. These problems can be 
overcome by using special data input subroutines. 

In all these data entry subroutines written in Basic, 
the INPUT command is replaced by the GET command. This allows 
each character of the input to be tested, to see if it is of 
the correct variable type or is one of the command keys, 
before it is added to the data already input. All variables 
are therefore input as string variables. The only problem 
with using the GET command is that in machines using Basic 
1.00, 2.00 or 3.00 the occasional delay caused by garbage 
collection can be a nuisance. This is more frequent when 
using GET for input owing to the repeated concatenation of 
strings. Despite this the use of GET gives the programmer far 
greater control over data input. 

In order to give the operator editing capability certain 
keys must be given command functions. The following is a 
proposed standard for key functions. 



Stop key. 



The s 
the co 
key 



stop key is disabled at the beginning of a program with 

ommand: POKE 144,49. At the end of the program the stop 

should be reenabled with POKE 144,46. 



Delete key. 

This key in the unshifted mode will have the function of 
deleting the entire entry with the prompt being returned to 
the first character in the field. 

Right Arrow. 

This key in the unshifted mode deletes the last character 
entered and places the prompt back one character. 

Cursor Up. 

The shifted cursor-up key has the function of aborting the 
existing entry field and returning to the preceding entry on 
the screen (if any). The preceding field is erased and the 
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prompt placed in the first character position. The aborted 
field contains a null string entry. 

Cursor Down. 

The unshifted cursor-down key aborts the existing entry field 
and places the prompt in the first character of the next 
field on the screen (if any). The aborted field contains a 
null string entry. 

Return. 

Pressing return will accept an entry, provided it is within 
certain parameters and passes any error checking procedures. 
The parameters used are maximum and minimum entry length. 

Question mark. 

This is an optional command key which can be used to display 
operator help instructions. These instructions are displayed 
on the bottom two lines of the display. 

The bottom two lines (2k & 25) are reserved for error 
messages, prompts, or help messages related to the line 
currently being input. On all inputs an underline showing the 
maximum input length is used as an input prompt. 

ALPHAINPUT 

This subroutine inputs a data string with a maximum length 
set by parameter P3 and a minimum length by P4. The 
subroutine allows the entry to be edited using the left arrow 
to delete the last entered character and the delete key to 
delete the entire entry. The entry is accepted and the 
subroutine exits either when the return key is pressed and 
the data exceeds the minimum entry length or when the data 
input equals the maximum data length. 

Parameters used: 

P3 - maximum length of input data string P$, an input prompt 
line P3 characters long is drawn by lines 28010-28012. 
P4 - minimum length of input data string P$, one can not exit 
from the subroutine until an entry of P4+ characters has been 
input. 

P$ - character string input by subroutine. 
DIGITINPUT 

This is another version of the preceding subroutine, the 
difference being that the only characters accepted for data 
input are numeric variables, decimal point, and minus sign. 
I he subroutine has the same input and output parameters and 
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editing functions as Alphainput. 
ADDRESSIN 

Whereas ALPHAINPUT is a general purpose input subroutine for 
alphanumeric variables ADDRESSIN is specificaly designed to 
input a name and address. The subroutine will input a name 
and address of five lines each line having up to 30 
characters. Each line is automatically terminated and the 
next line commenced by pressing the comma key, except for 
line 5 where entering a comma has no effect. This allows the 
name and address to be entered without having to press return 
after each line since the lines are naturally terminated with 
a comma. Full editing on a line is allowed using either 
delete or left arrow, also the current line can be aborted 
and a previous line reentered by using the cursor-up key. All 
alphanumeric characters are accepted as valid except command 
characters and spaces where they are the first character on a 
line. The address entry is terminated and the subroutine 
exits only when the key sequence - full stop - return - is 
pressed. 

Parameters used: 

P$(5) - input string array, one element to each line on the 
address. 



YES/NO 

This is another special purpose input subroutine with the 
very simple function of inputting a yes or no answer to a 
question. Pressing Y for yes will set output parameter P to 1 
and YES will be printed on the screen. Pressing N will set P 
to 2 and NO will be displayed. 



Parameters used: 

P - yes/no flag: l=yes and 2=no. 
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> 

2 

c 



1 000 

1001 

1002 

1003 

1004 

1009 

1010 

1020 

1030 

1100 

2000 

3000 

4000 

5000 

6000 

28000 
2S002 
28004 
28006 
28008 
28009 
28010 
28012 
28014 
28016 
28020 
28022 
28024 
28026 
28030 
28032 
28034 
28038 
28040 
28042 
28044 
28046 
28050 
28052 
28054 
28058 
28060 
28062 
28064 
28066 
2806? 
28068 
28070 
REfiDV. 



REM 

REM *EXAMPLE OF SUBROUTINE CALL 
REM *TO INPUT AN ALPHA STR I HA- 
REM *MINIMUM LEHGTH 3 CHARACTERS 
REM *MAXIMUM 5 CHARACTERS. 
REM ************************* 
P3=5-P4=3-REM **LENGTH MAX/MIN** 
GOSUE28000 

PRINT: PRINT --PRINTP*: REM ** PRINT INpiJT STRING m 
END 
REM 
REM 
REM 
REM 
REM 

REM ********************** 

REM *SUEROUTINE TO INPUT A 

REM *DATA STRING 

REM ********************** 

P$=»» 

REM ***PRINT PROMPT LINE*** 

F0RQ=1T0P3 : PRINT"_" .; : NEXTQ : PRINT"! " : 

FORQ= 1 T0P3+ 1 : PR I NT " II" .; : NEXTQ 

REM ***GET CHARACTER*** 

GETA* : IFA*=" "GOTO28016 

REM ***TEST FOR COMMAND KEVS*** 

I F A*=CHR* <: 1 3 > GOTO2806A 

IFA*="«-"THEN28040 

I FA*OCHR* < 20 > GOTO28052 

REM ***DELETE ENTRV*** 

PL=LEN<P*> •FORQ=lTOPL:PRINT"ll".; -NEXT 

GOTO280O8 

REM ***DELETE LAST CHARACTER*** 

IFP*=""GOTO28014 

I FLEN < P$ > = 1 THENP$= " " : GOTO28046 

P* =LEFT* < Ft , LEN < Ft "> - 1 > 

A$="IL_H" •• GOTO28064 

REM ***VALID ALPHA CHARACTER""*** 

IFA*<" "G0T028&14 

I Ffl*> " Z " ANDA*< " I " GOTO280 1 4 

REM ***ENTRV TOO LONG?*** 

I FLEN < P$ ;■ =P3GOTO28070 

P$=P*+A* 

PRINTA*.; 

GOTO28014 

REM ***ENTRV TOO SHORT?*** 

I FLEN < Ft > <P4G0T028R 1 4 

RETURN 



16 



a. 
z 

H 

o 

5 



1009 REM 

1001 REM *EXflMPLE OF SUBROUTINE CALL 

1002 REM *TO INPUT fl NUMERIC STRING 

1003 REM *MINIMUM LENGTH 3 DIGITS 

1004 REM *MAXIMUM LENGTH 5 DIGITS 

1009 REM ************************** 

1010 P3=5 : P4=3 : REM **MAX/MIN LENGTH** 
1020 GOSUB28100 

1030 rem **convert numeric string to numeric variable** 
1040 p=val<:p*> 

1050 PR I NT: PR I NT: PR IMP :REM **PRINT NUMERIC INPUT** 
1060 END 
2000 REM 
3000 REM 
4000 REM* 
5000 REM 
6000 REM 

28100 REM ********************** 
28102 REM *SUBROUTINE TO INPUT A 
28104 REM *NUMERIC STRING 
28106 REM ********************** 
28108 P*="" 

28110 REM ***PRINT PROMPT LINE*** 
28112 FORQ=l TOPS: PRINT"-".: :NEXTQ:PRINT"I "; 
28 1 1 4 FORQ= 1 T0P3+ 1 : PR I NT " II" ; : NEXTQ 
28116 REM ***GET CHARACTER*** 
28 1 1 8 GET A* •• I FA*= " " G0T028 1 1 8 
28120 REM ***TEST FOR COMMAND KEVS*** 
28 1 22 I F A*=CHR* < 1 3 > G0T028 1 66 
28 1 24 I F A*= " <-" G0T028 1 36 
28 1 26 I F ASOCHR* < 20 > G0T028 1 46 
28128 REM ***DELETE ENTRV*** 
28 1 30 PL=LEN < P* > : FORQ= 1 TOPL : PR INT" II" ; : NEXT 
28 1 32 G0T028 1 08 

28134 REM ***DELETE LAST CHARACTER*** 
28 1 36 I FP*=" "G0T0281 18 
28138 IFLEN<P*>=1THENP*="" :G0T028142 
28 140 P*=LEFT* < P* > LEN C P* ) - 1 ) 
28 1 42 H$ = " ILJI" : G0T028 1 60 

28144 REM ***VALID NUMERIC CHARACTER?*** 
28146 IFfl*="."THEN28158 
28 1 48 I FH*= " - " ANDP*= " " THEN28 1 58 
23 1 50 I Ffl*< " " G0T028 1 1 8 
23 1 52 I Ffl*> " 9 " G0T028 1 1 8 
28154 REM ***ENTRV TOO LONG?*** 
23 1 56 I FLEN < Ft- ) =P3GOT028 1 66 
28158 P*=P*+fl* 
23160 PRINTfl*; 
2ft 1 62 G0T028 118 

28164 REM ***ENTRV TOO SHORT?*** 
28 1 66 I FLEN C P* > <P4 THENGOT028 1 1 8 
28168 RETURN 
PEADV. 
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100 LNE*="J 

110 DIM P*<5> 

1000 REM ***************************** 

REM *EXAMPLE OF SUBROUTINE CALL 

REM *TO INPUT AN ADDRESS. 

REM ***************************** 

PR I NT "T; 

GOSUE 28300 

REM **PRINT ADDRESS INPUT FROM ARRAY P*<Q>** 

PR I NT M"; 

FOR Q=1T05 

PRINTP*<Q> 

NEXTQ 

END 

REM 

REM 

REM 

REM 

REM 

REM *ADDRESS INPUT SUBROUTINE 

REM ************************* 

PR I NT " HOOftHHitftliMiftlSlRDDRESS I NPUTS" 

REM ***LOOP FOR 5 ADDRESS LINES*** 

F0RQP=1T05 

REM *** INITIALISE*** 

P$';QP> = H " 

REM ***HOME CURSOR & MOVE DOWN TO LINE START*** 

REM ***THEN INDENT 5 SPACES & PRINT PROMPT LINE*** 

PR I NT ".48"; 

PRINTLEFT*<LNE$.. 7+QP*2> ; 

PRINT" 

FORQL= 1 T030 : PR I NT " _" ; : NEXTQL 

FORQL=1TO30 : PR I NT "II" ; : NEXTQL 

REM ***GET CHARACTER*** 

GETAt •• IFA*=" "G0T028332 

REM ***TEST FOR COMMAND KEYS*** 

REM ***IF RETURN + . THEN END ENTRY*** 

IFA*=CHR*< 13) ANDRIGHT*<P$<QP) , 1 )=" . "THENQP=5 : GOTO28404 

REM ***IF , THEN NEXT LINE*** 

IFA*=","THEN28396 

REM ***IF CURSOR UP THEN GOTO PREVIOUS LINE*** 

I FA*=CHR* <. 1 45 ) THEN28372 

REM ***IF «- THEN DELETE LAST CHARACTER*** 

I FA$= " ■*-" THEN^'S'^fi^' 

REM ***IF DEL" THEN DELETE CURRENT LINE*** 

I F A$OCHR* < 20 > G0T028378 

REM ***DELETE CURRENT LINE*** 

G0T028314 

REM ***DELETE LAST CHARACTER*** 

I FP$ ■:: QP ) = " " G0T028332 

I FLEN < P* < QP > > = 1 THENP* < QP > = " " : GQT028368 

P$ < QP > =LEFT* < P* < QP > , LEN < P* < QP ) > - 1 > 

A$="II_H" :G0T028392 

REM ***GO BACK TO PREVIOUS LINE*** 

IFQP>1THENQP=QP-1 

G0T028314 



1001 
1002 
1009 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
2000 
3000 

4000 

5000 
6000 

28380 
28302 
28304 
28306 
28308 
23310 
28312 
28314 
28316 
28318 
28320 

28324 
28326 
28328 
28330 
28332 
28334 

28338 
28340 
28342 
28344 
28346 
28348 
28350 
28352 
28354 
28356 
2b'358 
28360 
28362 
28364 
28366 
28368 
28370 
28372 
28374 
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-•;-,.. ?G REM ***VALID CHfiRRCTER INPUT?*** 

28378 IFA*<" "G0T028332 

:'8:"i80 I F A$> " Z " AND A$< " I " GQT028332 

-•'8382 REM ***DELETE LEADING SPACES*** 

28384 REM ***CHECK LINE NOT TOO LONG*** 

--■8886 P* •; QP > =P* < QP > + A$ 

28888 I FLEN < P* < QP > > >30THEN28332 

-•88^0 I FLEFT* < P* < QP > , 1 ) = " " THENP* < QP > =R I GHT* < P* <. QP > , LEN < P* < QP > > - 1 ) : G0T028332 

2*392 PRINTfl*; -G0T028332 

.-.3:-i94 REM ***IF NOT LAST LINE THEN ADD LAST CHAR & GOTO NEXT*** 

28896 I FQPC5THENPR I NTA* : P* < QP > =P$ CQP > + A* •' G0TQ28484 

28398 REM ***IF LAST LINE JUST ADD*** 

28480 G0T028386 

28402 REM ***NEXT LINE*** 

28404 NEXTQP 

28406 PR INT: rr i NT : PR I NT = PR I NT 

?fi4flft REM ***ADDRESS CORRECT? VES THEN RETURN*** 

28410 REM ***NO THEN REENTER ADDRESS*** 

^12 PRINT" ENTRV CORRECT W9ES OR SNSO ?" 
2\.tl4 GET A$:IFA*=""G0T028414 
28416 IFA*="V"THEN28422 
28418 I F A$= " N " THEN PR I NT " 3" •■ GOTO28309 
28420 G0T028414 
28422 RETURN 
?EADV. 
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1006 REM 

1001 REM ^EXAMPLE OF SUBROUTINE CALL 

1002 REM *FOR VES/NO REPLV. 

1009 REM #m*****#*###*#**##*#*## 

1010 GOSUE 28200 

1020 REM **CONDITIONflL BRANCH ON VALUE OF P** 
1030 ON P GOTO 1500,1700 
ISO© PRINT "THE REPLV WAS VES" 
1510 END 

1700 PR I NT "THE REPLV WAS NO" 
1710 END 
2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

28200 REM ***+*********•*******+♦** 
28202 REM ^SUBROUTINE TO INPUT VES 
28204 REM *NO REPLV 
28206 REM ************************ 
2S208 PRINT" Sr'ES OR 2NSQ -•"; 
28210 GET A*:IFA$=""GOTQ28210 

28212 IFA*="V"THENPRINT"liHiMHM^ES " : P=l : G0Tn28218 
28214 IFA*="N"THENPRINT"MMMIMMNO " .p=2GnT028218 
23216 G0T028210 ' 

28218 RETURN 
RE ADV. 
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REDUCING INPUT ERRORS 



Data input errors are the primary cause of most 
so-called computer errors, such as the million pound 
electricity bill. Procedures can be adopted which greatly 
reduce the chance of incorrect numerical entry. The commonest 
cause of of numerical data entry error is the 
misinterpretation of handwriting. This is overcome by 
adopting a standard method of writing. The letter "I" must be 
'topped and tailed' to avoid its being mistaken for a numeric 
"1", zero is crossed to differentiate it from the letter "O", 
"Z" is crossed to avoid being mistaken for a "2" and "7" may 
also be crossed so that it can not be mis-read for a "1". 

Mis-reading of handwriting is only one source of errors 
in numeric data entry. The types of error can be classified 
as: 

Insertion - an extra character is added to a data item, 
the number 26195 may gain a 1 to become 261195. 

Omission - a character is left out of a data item, the 
number 312263 may lose a 2 to become 31263. 

Transcription - this is mis-reading the data, the 7 in 
27620 may be misread as a 1 causing the number to become 
21620. 

Transposition - characters change position, 28140 may 
become 21840. 

The final result of any of these errors is not only a 
corruption of data but in practice could mean a customer 
receiving the wrong goods or being billed incorrectly. 

To overcome these errors one must try to ensure when 
writing a program that data will be read, written and stored 
accurately. On way of detecting errors in numerical data 
items is the use of a check digit. A check digit is produced 
by performing a calculation on the number and appending the 
result to the data item. Whenever a number is input to the 
computer the check digit is recalculated and checked against 
the input check digit. If there is an error then the two 
check digits will not match and the input can be rejected. 
The incorporation of check digits is particularly useful with 
part or account numbers. 

There are many ways of calculating check digits, the 
methods used to ensure a 100% error detection rate usually 
involve a weighting technique. Such a method is used in the 
following subroutine, where each digit in the number is 
weighted, starting with the least significant digit the 
weight being incremented by one. Using the part number 72946 
as an example and calculating the check digit for it thus: 
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72916 



L 



x2 = 


12 


x3 = 


12 


xl = 


36 


x5 = 


10 


x6 = 


12 



+ 112 

This total is then divided by 11 and the remainder noted: 

112/11 = 10 remainder 2 

The remainder is subtracted from 11 giving the check digit 9. 
Using this algorithm, check digits will be produced with a 
range between and 11. Since most numbers using check digits 
will be of fixed length we can ensure that the number always 
has two digits simply by adding 10 to the check digit. 

Parameters used: 

P$ - numeric input for which the check digit is to be 

calculated. 

PC$ - check digit calculated from the value in P$. 

Notes: line 2 5011 is used to detect negative numbers, these 
then have check digits in the range 50-61, this line can be 
omitted if no negative numbers are used. When using 
f actional numbers note that the check digit calculation will 
not differentiate between fractions smaller than .5. To 
overcome this the input variable should be multiplied by say 
100 to give a two decimal place accuracy. 
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1060 
1001 
1 002 
1003 
1009 
1010 
1020 
1030 
1040 
2000 
3000 
4000 
5000 
6000 
25000 

25002 
25004 
25006 
25008 
25010 
25012 
25014 
25016 
25018 
25020 
25022 
25024 
25026 
25028 
25030 
25032 
25034 
25036 
25038 
25040 
25042 
READY. 



*EX AMPLE OF SUBROUTINE CALL 
*TO CREATE CHECK DIGIT FOR 
♦NUMBER. 



IS' 



; PC* 



REM 

REM 

REM 

REM 

REM 

I NPUT " I NPUT NUMBER " ; P* 

GOSUB25000 

PR I NT •• PR I NT : PR I NT " CHECK DIGIT 

END 

REM 

REM 

REM 

REM 

REM 

REM **************************** 

REM *SUBROUTINE TO CREATE A CHECK 

REM *DIGIT FOR VALUE IN P$ 

REM **************************** 

REM **FOR INCREASED RESOLUTION MULTIPLY P* BY 100** 

A= 1 60* VOL < F$ > ■■ BD= 1 

REM **IF NEGATIVE NUMBER THEN ADD 50 TO CHECK DIGIT** 

I FLEFT* < P* , 1 > = » - » THENA= VAL < R I GHT$ < P* t LEN < P$ > - 1 > > : BD=58 

A1=0 

B=INTCA/10) 

A1=A1 + CA-'::B*10>>*A2 

IFB=0THEN25032 

A=B 

A2=A2+1 

GOTO25020 

AC=Al-c;iNT<Al/ll>*ll> 

AC=11-AC 

AC=INKAO+BB 

REM **CHECK DIGIT FOR VALUE IN P* IS PC*** 

PC*=STR*<flC) 

RETURN 
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DATE INPUT VERIFICATION AND STORAGE 



Dates comprise a special class of input which is always 
prone to operator error unless validation techniques are 
used. An example is entering the date as the 31st when there 
are only 30 days in that month. The date validation program 
must be able to determine how many days there are in a given 
month and whether it is a leap year or not. Another problem 
is that there are many different ways of inputing a date, all 
being equally valid. 

For calculation purposes, and for compactness when 
stored in a data file, dates can be converted into a special 
numeric form representing the number of days since 1/1/72. 
This allows comparison of dates and calculation of date 
differences. 



DATEINPUT 

This subroutine will validate a date input as variable P$ 
with the format DDMMYYde: 2nd Feb 80 input as 020280). Lines 
25120 to 25124 dissect the date string to give simple numeric 
variables for day, month and year. Line 25130 checks that 
these values are within certain general limits, if not then 
error flag variable P6 is set. Line 25132 calculates if the 
current year is a leap year, and line 25134 checks that there 
are not too many days in the month using AL$ in a leap year 
and AM$ in an ordinary year. 



Parameters used: 

P$ - date input string in format DDMMYY with a length of 6 

characters. 

P6 - error flag if date in P$ is invalid. 

PD - numerical days in date. 

PM - numerical month in date. 

PY - numerical year in date. 



DATEIN2 




This subroutine is a more sophisticated and general purpose 
date validation subroutine. The date is input as string P$ 
but can have a variable format - DDMMYY, DD-MM-YY, DD/MM/YY, 
DD-MMM-YY, or D-MMM, (e.g. 020280, 02-02-80, 02/02/80, 
02-FEB-80, or 2-FEB). If no year is input with the format 
D-MMM then the year stored in the program as PY$ in line 
25508 is automatically inserted. Lines 25514 to 25534 
determine which format has been used and convert that format 
to a standard internal format used by the subroutine for its 
validation procedures. If the input contains an alpha month 



then lines 25540 to 25546 check the three character alpha 
month against valid alpha months stored as AM$ to produce a 
numerical month value. If the input alpha month is invalid 
then error flag P is set to 1 and the subroutine exited. 
Lines 25552 to 25556 dissect the internal date string to 
produce numerical values for day month and year. The date 
validation is done by lines 25562 to 25568. Any errors will 
set the error flag P to 1 and exit from the subroutine. 



Parameters used: 



PS - date input string, length can be between 5 and 9 

characters, format is variable. 

P - error flag set to 1 if there is an error in the input 

variable P$. 

PD - numerical days in date. 

PM - numerical month in date. 

PY - numerical year in date. 



DAYDATE1 



This subroutine has not only the function of validating a 
date input it also converts the input format into an output 
format. The format used for input variable P$ is either DDMMM 
or DDMMMYY (e.g. 2FEB or 2FEB80). P$ for this example is 
output by the subroutine as SATURDAY 2ND FEBRUARY 1980. Any 
error in the input causes the error flag P6 to be set to 1 
and the subroutine exited. Line 25418 checks that the number 
of days in the date is within allowed limits. The presence of 
a year in the input is detected by lines 25418-25420. If 
there is no year in the input date then the default year 
stored as PY in line 25410 is used. Lines 25426 to 25430 
convert the alpha month in the input into a numerical value. 
If there is an error in the input then P6 is set to 1 and the 
routine exits. The day of the week is calculated by lines 
25436-25440. Lines 25446-25456 construct the output string 
P$. * 



Parameters used: 



P$ - input string from 4 to 7 characters long. 

P$ - output string. 

PD - numerical days in date. 

PM - numerical month in date. 

PY - numerical year in date. 

P6 - error flag, error =1. 
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DATECONVERT 



The function of this subroutine is to convert a date input as 
F$ with the format DDMMYY into a numeric value representing 
the number of days between the input date and 1/1/72. Lines 
25214-25218 dissect P$ to give numeric days, months, and 
years in the date. This section of the subroutine could be 
omited if these values already exist. The output is given as 
both numeric and string variables PN and PN$. 



Parameters used: 



P$ - input string with date in format DDMMYY. 

PN - numeric days since 1/1/72. 

PN$- string variable equivalent of PN. 

DATERESTORE 



The numeric internal date format of days since 1/1/72 is 
converted back into a normal format DD/MM/YY by this 
subroutine. The input parameter is PN$. Change line 25316 to 
AD = PN if input parameter is a numeric variable. The output 
parameter is P$. 



Parameters used: 



PN$ - input string of days between date and 1/1/72. 
P$ - output string with date in format DD/MM/YY. 
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1000 
1001 
1002 
1009 
1010 
1020 
1030 
1040 
1050 
1068 
2000 
3000 
4000 
5000 
6000 

25100 
25102 
25104 
25106 
25108 
25110 
25112 
25114 
25116 
25118 
25120 
25122 
25124 
25126 
25128 
25130 
25132 
25134 
25136 
RE ADV. 
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REM*EXAMPLE OF SUBROUTINE CALL 

REM*TO INPUT AND VOL I DATE DATE. 

REM*************************** 

INPUT" INPUT A DATE -DDMMVV - M ;P* 

GOSUE25100 

REM ***IF INVALID DATE REENTER*** 

IFP6=1THEN GOTO 10 10 

PR I NT : PR I NT : PR INT" D AV- " ; PD ; " MONTH- " ; PM ; " 

END 

REM 

REM 

REM 

REM 

REM 

REM *************************** 

REM *DATE INPUT AND VALIDATION 

REM *DATE INPUT IN FORMAT -DDMMVV 

REM *AS VARIABLE Pt. 

REM *************************** 

AM$= " 3 1 283 1 303 1 303 1 3 1 303 1 303 1 " 

AL*= " 3 1 293 1 303 1 303 1 3 1 303 1 303 1 " 

P6=0 

REM ***DISSECT INPUT STRING*** 

REM ***TO GIVE NUMERIC DATES*** 

PD=VAL < LEFT* < P* , 2 ) > 

PM= V AL < M I D* < P* .. 3 , 2 > ) 

PV=V AL < R I GHT$ < P* , 2 > > 

REM ***CHECK THAT THE DATE INPUT IS WITHIN PARAMETERS*** 

REM 

I FPM< 1 ORPM> 1 2ORPV<70ORPV>85ORPD<0 1 0RFD>3 1 THENP6= 1 

AR= 1 900+PV : I F I NT (. AR/4 ) =AR/4THENAM*=ALf 

I FPD> VAL < M I D* < AM* , PM*2- 1,2)) THENP6= 1 

RETURN 
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1000 REM **************************** 

1001 REM *EXAMPLE OF SUBROUTINE f.RLL 

1002 REM *T0 INPUT AND VOL I DATE A DATE 

1009 REM **************************** ' 

1010 INPUT "INPUT fl DATE -";p$ 
1020 GOSUB25500 

1030 REM **IF INVALID THEN REENTER** 
1040 IFP=1THENGOTO1010 ^tmtK** 

1 1 gf™J NT:pRINT:pRINTM I«V- ,, 'PI>;" MONTH-" ;PM;" VEAR- 19".;PV 

2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

25500 REm*************************** 
L'55w2 REM*DATE INPUT AND VALIDATION 
25504 REM**************************** 

25508 ^|:": T ^ FE |^ RflPRmVJUNJU Lfi'^'SEPOCTNOVDEC» 

25510 REM ***DETERMINE FORMAT OF *** 
25512 REM ***DATE INPUT*** 
""5514 AL=LEN<P*> 



:,Er 5; 

ciDo" 1 6 I F AL<5THENP= 1 : RETI IRN 
25518 IFMID$<:p$,4, 1»="A"THEN25530 



225 «2!- S t5S? VfiL <MID *<P*' 3' 1 > >=0THENP*=P*+PV* : G0TQ2555* 
c:-55^ IFAL=5GRAL=7THENP*="0"+P$ 

25524 IFAL>6THEN25552 

25530 IFAL<7THENP*=P$+py$ 
25532 IFAL=8THENP$="0"+p$ 
25534 IFAL=5THENP$="0"+p$ 

SSX-SIU ***J ETERMIN E MONTH NUMBER*** 
-«?! REM *** FuR fl LPHA MONTH INPUT*** 
k'5540 A0*=M I D* < P$ , 4 , 3 > 
25542 F0RPM=1T012 

5544 I FA0*=M I D* ( AM* , 3*PM-2 , 3 > THEN255S4 

5546 NEXTPM:P=1 -RETURN 
?554S REM ***DISSECT INPUT STRING*** 
^5550 REM ***T0 GIVE NUMERIC DATES*** 
c:'5552 PM= V AL < M I D$ < p* , 4 . 2 "> > 
25554 PD= VAL CLEFT* < P$ . 2 Vj ' 
25556 PV=VALCRIGHT$CP$.2)> 
SS? 512 ***CHECK THAT DATE INPUT*** 

SX? ?!5r ?J* IS WITHIN PflRAMETERS*** 

^•556c:' I FPD=0ORPM=0ORPV=0THENP= 1 ■ RETi IRN 

25564 IFPD>310RPM>12THENP=1 : RETURN 

^5566 I FPD-29> VAL < M I D* < " 202 1 2 1 22 1212". PM ,1^ THFHP- 1 • pr ti iwj 

^5568 IFPM=2ANDPD=29AND<PVAND3K>0THENP= ' >THENF " 1 RETURN 

*'5570 RETURN *«nerir i 

RE ADV. 



•-» 



£. 
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209 D I MAM* < 1 2 ) , fl I * a 2 > , AW* < 7 > > 
202 AW* < > = " TUESDAV " : AW* < 1 > = " WEDENSDflV " £ 
204 AW* < 2 > = " THURSDfiV " •• AW* < 3 > = " FR I DA V " = 
206 AW* < 4 > = " SRTURDfl V " •' AW* < 5 > = " SUNDflV " 

208 AW*<6>="M0NDAV" 

2 1 AM* a > = " J ANUAR V " ■ AM* < 2 > = " FEBRUARY " 
2 1 2 AM* < 3 > = " MARCH " : AM* < 4 > = " APR I L " 

2 1 4 AM* i 5 > = " MAV " •' AM* (.€'? = " JUNE " •• AM* < 7 > = " .JUL V " 

2 1 6 AM* (. 8 > = " AUGUST " : AM* < 9 > = " SEPTEMBER " 

2 1 8 AM* <. 1 > = " OCTOBER " : AM* (. 11) = " NOVEMBER " 

220 AM* < 1 2 ? = " DECEMBER " 

222 AI*a>="JAN" •AI*<2>="FEB" = AI*<3) = "MAR" 

224 A I * < 4 > = " APR " : A I * < 5 > = " MAV " 

226 AI*':6> = "JUN" :AI*<7>="JIJL" AI*c:8>="AUG" 

228 A I * < 9 > = " SEPT " •' A I * a > = " OCT " 

230 A I * < 1 i > = " NOV " : A I * < 1 2 > = " DEC " 

300 REM 

400 REM 

500 REM 

600 REM 

700 REM 

1000 REM a**************************** 

1001 REM *EXAMPLE OF SUBROUTINE CALL 

1002 REM *TO INPUT BATE AND PRINT DATE 

1003 REM *IN FULL FORM. 

1009 REM ****##*#**#***#######*####### 

1010 INPUT "INPUT A DATE - ";P* 
1020 GOSUB25400 

1038 REM **IF INVALID THEN REENTER** 

1040 IFP6=1THEN GOTO1010 

1 050 PR I NT : PR I NT : PR I NTP* 

1 060 PR INT: pr i nt : PR I NT " DA V- " .; PD ; " MONTH- " ; PM ; " VEAR- " ; PV 

1070 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

25400 REM***********************#***#**# 

25402 REM*SUBROUTINE TO INPUT AND VALIDATE 

25404 REM.+THE DATE THEN CALCULATE THE DAV 
254G6 REM*OF THE WEEK 

25405 REM******************************* 
254 1 Q AM=0 : AZ=0 : AK=0 : P6=0 : PV= 1 986 
25412 REM ***DISSECT AND VALIDATE*** 
25414 REM ***DATE INPUT STRING*** 

254 1 6 AD= V AL (. P* > : AL=LEN < F* > 

254 1 8 I F HD< 1 OR AD>3 1 THENP6= 1 : G0T025458 

25420 H>,*=R I GHT* (. P* , 2 > : AV= VAL ( AM* > 

25422 I FHV>0THENA V=AV-PV+ 1 900 

25424 AK=3+ < AD< 1 > : AM*=M I D* <. P* , fiX .• 3 ) 

25426 F0RQ=1T012 

25428 I FAM*=A I * < Q > THENAM=Q : G0T025436 

25430 NEXTQ •' P6=l ■' G0T025458 

25432 REM ***CALCULATE DAV OF WEEK*** 

25434 REM ***FROM NUMERIC DATE VARIABLES*** 

25436 Q= 1 2 : AS=AD = AX=AV+PV : AS=AS+AX*365 
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25438 
25449 
25442 
25444 
25446 
25448 
25458 
25452 
25454 
25456 
25458 
RE ADV. 



IFAM=>3THENAS=AS-INT<AM*. 4+2. 3> : RX=AX+1 

AS=AS+INT< AM*31 + <:AX-1 >/4> : AW=AS-INT<AS/7>*? 

REM ***CONVERT DATE VARIABLES*** 

REM ***INTO OUTPUT STRING*** 

AT*=".TH. " 

IFAD=10RAD=210RAD=31THENATf=". ST. " 

IFAD=20RAD=22THENAT*=" . ND. " 

IFAD=30RAD=23THENAT$=" . RD. " 

p$= " " +RW* C flW > +STR$ < AD > +AT*+ " " + AM* < AM > +STR* < A V+PV > 

PD=AD : PM=AM PV=AV+PV 

RETURN 
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1800 REM **************************** £ 

1801 REM *EXAMPLE OF SUBROUTINE CALL Tn < 

1002 REM *COHVERT A DATE INTO INTERNAL r 

1003 REM *FORMAT 

1009 REM **************************** 

1010 INPUT" INPUT DATE - DDMMVV -";P* 
i 020 GOSUB25200 

1030 PR I NT: PR INT -PR I NT "INTERNAL FORMAT DATE IS " ; PN$ 
1040 END 
2000 REM 
3080 REM 
4000 REM 
5000 REM 
6888 REM 

25280 REM **************************** 
25202 REM *DATE CONVERSION TO INTERNAL 
25204 REM *FORMAT OF DAYS SINCE 1/1. •'72 
25206 REM * INPUT IN P* AS CBBMMVV), 
25208 REM *OUTPUT IN PN*. 
25210 REM **************************** 
252 12 A 1 $ = " 0O003 1 859090 1 28 15118121 224:":2?3304:-;:-:4 » 
25214 A1=VHL'::LEFT*<P$,2>> 
252 1 6 A2= V AL ( M I D* ( F$ , 3 , 2 )< 
25218 A3=VAL'::RIuHT$«::P*,2>) 

25220 AB=Hl + ':H3-?2>*365+INT-::(A3-69>/4>+yAL'::MIB$<Al$,3*A2-2,3)> 
25222 IFA2>2ANB<: 19O0+A3>/4=INT< < : 1900+A3.V4':'THENAD=AD+1 
25224 PN=AD ■■ PN*=STR* <:: PN > 
25226 RETURN 
READY. 
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^5280 REM **************************** 

J5202 REM *DATE CONVERSION TO INTERNAL 

J5284 REM *FORMAT OF DflVS SlhT.E 1/1/72 

J5206 REM * INPUT AS VARIABLES PD,PM,PV 

:520S RhM *(DAV.. MONTH, VR:> OUTPUT IN PN*. 

:S210 REM **************************** C 

.521-:' Hi j- "00883 1059090 120 151 181212243273304334" £j 

:5228 H^Fr^' PV-72:'*365-INT-::c:PY-69::'/4:'+VAL(:MID$(A1*,3*PM-2,3)> £ 

:bc'L 2 iHH-i ORND': 1900+PV/-'4=INT'::< lyyy+pV :'/4':'THENAD=AD+l c 

:52^4 HN=An-pN*=STPt<:FH> 

:5226 PE^'iRN 



> 

m 

m 



O 100fi REM #*####*##*#******#***#**###** 
2 1601 REM *EXflMPLE OF SUBROUTINE CALL TO 



m 



1602 REM ^CONVERT INTERNAL FORMAT HATE 

1003 REM *INTO STANDARD DATE FORMAT-DDMMVV. 

100*3 REM ***************************** 

1010 INPUT" INTERNAL FORMAT DATE EG : 3207 ";PN* 

1020 GOSUB25300 

1030 PRINT PR I NT: PR I NT "CORRESPONDING DATE IS - ";P* 

1640 END 

2600 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

25300 REM **************************** 

25302 REM *BATE RECONSTRUCTION FROM 

25304 REM * INTERNAL FORMAT INPUT AS PN* 

25306 REM *DATE OUTPUT AS P* IN FORM 

25308 REM *<DD/MM/VV>. 

25310 REM **************************** 

312 A 1 t = " 00003 1 059090 1 28 15118121 2243273384334 " 



,K 314 A2=34 



25316 AD=VAL<PN$> 
25318 A3=INT<AD/365> 
25320 Al=AD-<:A3*365>-INT<<A3+3>/4> 
25322 IFA1>0THEN25328 
25324 A3=A3- 1 = A 1 =A 1 +365 
25326 IFINT<A3/4>=A3/4THENA1=A1+1 
25328 A5=8 : 1 F I NT < A3/4 > =A3/4THENA5= 1 
25330 A4=VAL<MID*<A1$,A2,3>> 
25332 I FA4>3 1 THENA4=A4+A5 
25334 I FA 1 =< A4THENA2=A2-3 : GOTO25330 
25336 A 1 *=STR* < A 1 -A4 > + " / " 
25338 A2$=STR* (. <. A2+2 > /3 > + " / " 

25340 P*=R I GHT$ < " " +R I GHT* < A 1 $ , LEN < A 1 * > - 1 > , 3 > 

25342 P*=P*+R I GHT$ < " O " +R I GHT$ <. A2* , LEN < A2* > - 1 > , 3 > +R I GHT* < STR* < A3+72 > , 2) 
25344 RETURN 
READV. 
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SCREEN FORMAT AND DISPLAY 



The subroutines in this section are all designed to control 
the way data is output to the screen. 



CURSORCONT 



This cursor control subroutine can be the basis of any screen 
data output procedure. The subroutine places the cursor at a 
location on the screen defined by the co-ordinates of line 
and column numbers. The position of the cursor is then the 
starting position for subsequent printing. 
Lines 29810, 29818 and 29820 are used to remove any print on 
the screen for 40 characters in front of the cursor. This 
feature is useful if the cursor is at the beginning of a line 
since it will delete all the existing contents of that line. 
If not required then these lines of the subroutine can be 
omitted. 



Parameters used: 



COL - this value should be set to the column number (between 
1 and 40) at which the cursor is to be placed. 
LNE - this value should be set to the line number (between 1 
and 25) on which the cursor is to be placed. 



WARNING 



When an error situation arises during a program, because of 
operator error, data file read or write errors, etc; this 
subroutine can be used to signal the fact to the operator. 
The subroutine calls the subroutine Cursorcont in line 30106 
to place the cursor at the beginning of line 25 ( the bottom 
line of the screen). A flashing message "WARNING" is 
displayed at the beginning of the line (Note: 
AW = LOG(m)generates a delay between flashes). A message stored 
as ME$ is then displayed on the rest of the line. The 
subroutine then halts until a key is pressed, upon which line 
25 on the screen is erased and the subroutine exits. 



Parameters used: 



ME$ - message to be displayed on line 25 indicating fault or 
error type, maximum length 32 characters. 
SP$ - string consisting of 40 spaces. 
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BORDER 

This little subroutine draws a border around the screen (the 

character used for the border is the graphics &, but could be 

any character). No parameters are passed by this subroutine. 



BORDER 2 



This subroutine also draws a border around the screen but in 
this case using a thin line. The screen is given a page 
heading in reverse field characters in the centre of line 1. 



Parameters used: 



P$ - string for page heading, maximum length 40 characters. 
SP$ - string of 40 spaces. 



DIGIT 



One of the problems in displaying numerical values on the 
screen in tabular form is that they are naturally left hand 
justified and, unless thev are integer values, can have a 
variable number of decimal places. This gives rise to a verv 
ragged display, to look neat the numbers should be truncated 
to a set number of decimal places, usually two, and right 
hand justified so that the decimal points are aligned in 
straight columns. This subroutine performs both these 
functions. Lines 27026 and 27028 round the fractional part of 
the number up or down to two decimal places. Then lines 27036 
to 27054 truncate the fractional part of the string 
representation of the number to two decimal places, or add 
.00 to the number if it is an integer. All numbers are now in 
string format with the fractional component of two decimal 
places, the least significant digit of which has been rounded 
up or down, depending on the value of the number in the 
fractional third decimal place of the original number. Line 
27056 adds spaces to the front of the numerical string so 
that all numbers output from the subroutine as variable P$ 
have the same length. This is set bv input parameter P. 



Parameters used: 



P$ - input numerical string. 

P - input parameter for length of output numerical 



string. 
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P$ - output numerical string length P characters set to two 

decimal places. 

SP$- string of 40 spaces. 



DISPLAYSRC and BDISP 



niSPLAYSRC is a machine code program to perform various 
screen display functions, BDISP is a Basic loader version of 
niSPLAYSRC. This subroutine which is located in the top 2K of 
memorv in a 32K machine is designed to perform several 
functions. First to draw horizontal or vertical lines on the 
screen of any length and starting at any position, using any 
valid character to construct the line. Secondly using the 
first two functions to draw a border around the screen and 
thirdlv to reverse field a section of the screen or even the 
whole screen. Machine code is used to perform these functions 
because its higher speed of operation gives an almost 
instantaneous display. All these functions except the border 
require parameters to be poked into reserved memory 
locations. These parameters control starting position, 
character used, line length, and, with the reverse field 
k, the block di-mensions. The starting position is the 
location in screen memory of the top right hand character of 
the line. This screen location is stored as two bytes, most 
signif icant(MSB) and least signif icant(LSB). These two 
location values must be calculated before a line is drawn or 
a block reversed. Screen lines should be numbered from to 
24 and columns from 1 to 40. The screen memory location can 
then be calculated by multiplying the line number of the 
starting location by 40 and adding to it the column number 
plus 32768, the result will be a value between 32768 and 
33767. To obtain the M SB and LSB values for this number 
divide it by 256. The integer part of the result is the MSB 
value, the remainder is the LSB value. Thus if the starting 
position is line 4 column 10 the ca'—M a tion is: 

H*U0 +10+32768 = 32938 
32938/256 = 128 remainder 170 

the MSR value is 128, LSB value 170 

To dra*-' a horizontal line the following Basic commands are 
required: 

POKE 84, Start location LSB 

POKE 85, Start location MSB 

POKE 87, Line length 

POKE 88, ASCII code for character used 

Sv^(31232) 



To draw a vertical line: 

POKE 84, Start location LSB 

POKE 85, Start position MSB 

POKE 87, Line length 

POKE 88, ASCII character code 

SYS(31246) 

To draw a border 
SYS(31283) 

To reverse field a block of the screen: 
POKE 84, Column number of start 
POKE 85, 128 

POKE 86, Line number of start 
POKE 87, Number of lines in block 
POKE 88, Number of columns in block 
SYS(31358) 
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100 SP*=" 

10fifi REM *************************** 

iml REM *EXAMPLE OF SUBROUTINE CALL 

lflft2 REM *TO DISPLflV WARNING MESSAGE 

ififi>: REM *THIS SUBROUTINE ALSO CALLS 

1004 REM *THE CURSOR CONTROL SUBROUTINE 

IflflR REM *CURSORCONT AT 29800. 

Ififi9 REM *************************** 

1010 PR I NT "rr 

1020 ME*=" EXAMPLE OF WARNING MESSAGE" 

lfi3fi OOSUB 30100 

1040 PR I NT "S3" 

1050 END 

2O00 REM 

3000 REM 

4000 REM 

5000 ,REM 

6000 REM 

2vKflfi REM *************************** 

2'="ft02 REM *r:UPSOR CONTROL SUBROUTINE 

2*804 REM *************************** 

2 =>:=:»£ col*= " »»»»»» i»»ii»i»i*PiiM*i»»i»»W" 

29808 LNE*= " '«?Ml!Il!I««««!ftM?M«!MBM«CftMl!W^!M^!W' , 

29812 PR I NT" 3"; 

2*8 1 4 I FCOL> 1 THENPR I NTLEFT* < COL* , COL- 1 > ; 
29:-; 1 f, I FLNE> 1 THENPR I NTLEFT* < LNE* , LNE- 1 > .: 
29822 RETURN 
29900 REM 
29910 REM 
29920 REM 
29930 REM 

30100 REM ******************** 
30102 REM *WARNING MESSAGE 
30104 REM ******************** 
3fl 1 0k f:fiL= 1 •' LNE=24 : GOSUE29800 
30108 A*="IIIIIIU" 
30110 FORA=1TO30 

30112 flW=LOG<ir>: PRINT" SWflRNING"fl*.: 
30 1 1 4 AW=LOG ■:: it > : PR I NT " S-JflRN I NG " A* ; 
301 16 NEXT ■■ PRINT" EARNING -"LEFT*<ME*+SP* ■ 31 > "■" • 
30 1 1 8 GETfi* •' I FA*= " " THEN3G 1 1 8 
30120 COL=l : LNE=24 ^ GOSUE29800 
30122 PRINTSP*; 
30124 RETURN 
RE ADV. 
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2*900 REM *************************** 
29902 REM *SLIBROUTINE TO DRAW A BORDER 
29904 REM *ARROUND THE SCREEN. 
2^906 REM *************************** 
29908 PR I NT " IT • A*= " 3" •' FOR I = 1 T025 : A*= A$+ " W" : NEXT 
299 1 B*= " " •' FOR I = 1 T040 : B*=B$+ " ®" = NEXT 
299 1 2 FOR I = 1 TO20 •■ PR I NT "1" TAB i 20- 1 > LEFT* < B$ , 2* I > = NEXT 
299 1 4 PR I NT " "I" ; ■ FOR I = 1 T02 1 : PR I NT " 1" SPC < 33 ) " W ; : NEXT : PR I NT 
299 1 6 PR INT" 1" SPC < 38 > " Wl" i 

299 1 8 FOR I =OTO 1 9 : PR I NT " "I" SPC < I ) " »" SPC < 38- 1 *2 > " W ■ NEXT 
29920 RETURN 
REflDV. 



190 SP*=" 

1000 REM **************************** 

1001 REM *EXAMPLE OF SUBROUTINE CALL 

1002 REM *TO DRAW BORDER WITH SCREEN 

1003 REM *HEADING. g 

1009 REM **************************** uj 

1010 PR I NT "3"; g 
1020 P*=" EXAMPLE": REM **HEADING** O 
1030 GOSUB 29900 ? 
1040 PRINT"M«««!SIWllIfla»»»»»»»ITEXT *************"; 

1950 END 
2000 REM 
3000 REM 
4000 REM 
5000 REM 
16086 REM 
29960 REM *************************** 

29902 REM *SUBROUTINE TO DRAW BORDER 

29964 REM *ARROUND THE SCREEN WITH A 

29966 REM *REVERSE FIELD PAGE HEADING 

29908 REN *TRANSFERED AS P* 

29916 REM *************************** 

299 1 2 A=LEN ( P$ > : A 1 = < 40-A > ,-"2 

299 1 4 A 1 *=LEFT* < SP$ , A 1 > 

29916 PRINT"."]"; 

29918 PRINTAlf .; : PRINT" S"P*""" 

29928 PRINT" " 



29922 FORX=32850TO336 1 6STEP48 : POKEX , 1 1 •' NEXTX 
29924 FORX=32886TO33686STEP40 : POKEX, 101 : NEXTX 

29926 PRi^i "nammmmmmomimm i 

29928 PR I NT " SJ" ; : RETURN 
RE ADV. 
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100 S 

1000 

1001 

1002 

1009 

1010 

1020 

1030 

1040 

1050 

1060 

10F0 

1080 

1030 

2000 

3000 

4000 

5000 

6000 

27000 

27002 
27004 
27006 
27008 
27010 
27012 
27014 
27016 
27018 
27020 
27022 
27024 
(£'7026 
27028 
27030 
27032 
27034 
27036 
27038 
27040 
27042 
27044 
27046 
27048 
27050 
27052 
27054 
27056 
27058 
READY. 



P#=" 

REM 

REM *EXAMPLE OF SUBROUTINE CALL 

REM *TQ BISPLfiV FORMATTED NUMBERS 

REM ***************************** 

I NPUT " I NPUT 5 NUMBERS - " ; A* U > , A* < 2 > , A* < 3 > , A* ( 4 > , At- < 5 > 

PR I NT = PR I NT ■■ PR I NT 

P=12 

F0RQ=1T05 

P$=A*<Q> 

GOSUB27000 

PRINTP* 

NEXTQ 

END 

REM 

REM 

REM 

REM 

REM 



REM*SUBROUTINE TO ROUND NUMBERS 
REM*TO TWO DECIMAL PLACES AND 
REM*PAD WITH SPACES TO RIGHT 
REM* JUSTIFY COLUMNS. NUMBER INPUT 
REM*AND OUTPUT AS P$, OUTPUT 
REM*LENGTH P CHARACTERS. 



A*="" :A1 $="": A2*="" 

AN=VAL(P$> 

REM 

REM ***ROUND TO 2 PLACES*** 

REM 

A1=-<INT<AN>-AN> 

A 1 =SGN < A 1 > * I NT <: ABS < A 1 * 1 00 > + . 5 > / 1 00 

REM 

REM ***FORMAT NUMBER*** 

REM 

A*=STR*<Ai::' 

I F A 1 < . 1 THENA*= " O . 00 " 

I FLEN < A* > =4THEN27052 

IFLEN<A*»4THENA*=LEFT$< A*, 4) 

I FLEN < A$ > <4THENA$=A$+ " " 

REM 

REM **# JUST I FY*** 

REM 

A*=RIGHT$<A*,3> 

A*=STR$ <I NT < AN > > +A* 

P*=RIGHT*<SP*+fl*,P) 

RETURN 



M) 



DISPLAVSRC PAGE 0001 

LINE# LOG CODE LINE 



0001 


0000 






0002 


0000 






0003 


0000 






0004 


0000 






0005 


0000 






0006 


0000 






0007 


0000 






0008 


0000 






0009 


0000 






0010 


0000 






0011 


0000 






0012 


0000 






0013 


0000 






0014 


0000 






0015 


0000 






0016 


0000 






0017 


0000 






00 IS 


7fl00 






0019 


7A00 






0020 


7A00 






0021 


7H00 






0022 


7000 






0023 


7R00 






0024 


7fl00 






0025 


7fl00 






0026 


7fl00 


98 




0027 


71=10 1 


48 




0028 


71=102 


fl4 


57 


0029 


7fl04 


fl5 


ST. - . 

JO 


0030 


71=106 


91 


54 


0031 


7fl08 


88 




0032 


7H09 


D0 


F9 


0033 


7A0B 


68 




0034 


7H0C 


A8 




0035 


7H0D 


60 




0036 


7A6E 






0037 


7R0E 






0038 


7A0E 






0039 


7H0E 






0040 


7A0E 






0041 


7H0E 






0042 


7H0E 






0043 


7H0E 


98 




0044 


7fl0F 


48 




0045 


7A10 


A4 


57 


0046 


7A12 


A2 


00 


0047 


7A14 


A5 


58 


0048 


7A16 


81 


54 


0049 


7A18 


20 


21 


0050 


7fllB 


88 




0051 


7A1C 


10 


F6 


0052 


7filE 


68 




0053 


7A1F 


fl8 




0054 


7A20 


60 




0055 


7A21 







7 H 



.; **************** 
*SCREEN DISPLflV 
*SUBROUTINES 
#5/4/80 
**************** 



STARTL=*54 
STARTH=*55 
TEMP 1**56 
TEMP2=*57 
TEMP3=*58 



BEGIN=*7H00 

*=BEGIN 

HORIZONTAL LINE BRAW S/R 

DRAW HORIZONTAL LINE 
LENGTH TEMP2 USING 
CHARACTER WITH ASCII 
NUMERIC VALUE IN TEMPS 



HORIZ 



NEXTH 



TVA 




PHA 




LBV 


TEMP2 


LDA 


TEMPS 


STA 


<STARTL>,V 


BEV 




BNE 


NEXTH 


PLA 




TAV 




RTS 





VERTICAL LINE DRAWING S/R 

VERTICAL LINE LENGTH TEMP* 
CHARACTER ASCII NUMERIC 
VALUE IN TEMPS 



VERT TVA 

PHA 

LBV TEMP2 

LDX #*00 
NEXTV LDA TEMPS 

STA «;STARTL,X> 

JSR NEXTL 

BEV 

BPL NEXTV 

PLA 

TAV 

RTS 



irl 



DISPLRVSRC PAGE 0902 

LINE# LOG CODE LINE 



0056 


7A21 




; CALCULATE 


START OF 


NEXT SCREEN 


0057 


7A21 




;LINE 


WITH 


ANV OFFSI 


ET 


0058 


7fl21 




.• 








0059 


7A21 


93 


NEXTL 


TVA 






0060 


7fl22 


48 




PHA 






0061 


7fl23 


13 




CLC 






0062 


7024 


A9 28 




LDA 


#$28 




0063 


7A26 


65 54 




ADC 


STARTL 




0064 


7A28 


35 54 




STA 


STARTL 




0065 


7A2A 


A9 00 




LDA 


#$00 




QQ66 


7A2C 


65 55 




ADC 


STARTH 




0067 


7R2E 


85 55 




STA 


STARTH 




0068 


7A30 


68 




PLA 






QQ69 


7R31 


A8 




TAV 






0070 


7A32 


60 




RTS 






0071 


7A33 




f 








0072 


7A33 




;S/R TO DRAW BORDER 


ARROUND SCREEN 


0073 


7A33 




i 








0074 


7fl33 


43 


BORDER 


: PHA 






0075 


7A34 


98 




TVA 






0076 


7A35 


48 




PHA 






0077 


7A36 


8A 




TXA 






0078 


7A37 


48 




PHA 






0079 


7A38 


A9 A0 




LDA 


#*A0 


.: CHARACTER USED FOR BORDE 


0080 


7A3A 


85 58 




STA 


TEMPS 




0081 


7A3C 


A9 FF 




LDA 


#$FF 


.; START OF TOP 


0082 


7A3E 


85 54 




STA 


STARTL 




0083 


7A40 


A9 7F 




LDA 


#$7F 


.JLINE 


0084 


7A42 


85 55 




STA 


STARTH 




0085 


7A44 


A9 28 




LDA 


##28 


;line LENGTH 


0086 


7A46 


85 57 




STA 


TEMP2 




0087 


7A48 


20 00 7A 




JSR 


H0RI2 


.;DRAW TOP LINE 


0088 


7A4B 


A9 BF 




LDA 


#$BF 


.; START OF BOTTOM * 


0039 


7A4D 


85 54 




STA 


STARTL 




0090 


7A4F 


A9 83 




LDA 


#$83 


..LINE 


0091 


7A51 


85 55 




STA 


STARTH 




0092 


7A53 


A9 23 




LDA 


#$28 


.; LENGTH OF BOTTOM LINE 


0093 


7A55 


35 57 




STA 


TEMP2 




0094 


7A57 


20 00 7A 




JSR 


HORIZ 


,DRAW BOTTOM LINE 


0095 


7A5A 


A9 27 




LDA 


#$27 


; START OF RIGHT 


0096 


7A5C 


85 54 




STA 


STARTL 




0097 


7A5E 


A9 30 




LDA 


#$80 


;LINE 


0098 


7A60 


85 55 




STA 


STARTH 




0099 


7A62 


A9 17 




LDA 


#$17 


JLINE LENGTH 


0100 


7A64 


85 57 




STA 


TEMP2 




0101 


7A66 


20 0E 7A 




JSR 


VERT 


;DRAW RIGHT LINE 


0102 


7A69 


A9 00 




LDA 


#$00 


; START OF LEFT 


0103 


7A6B 


85 54 




STA 


STARTL 




0104 


7A6D 


A9 80 




LDA 


#$80 


;line 1 


0105 


7A6F 


85 55 




STA 


STARTH 


% 


0106 


7A71 


A9 17 




LDA 


#$17 


;LINE LENGTH k 


0107 


7A73 


85 57 




STA 


TEMP2 


1 


0108 


7A75 


20 0E 7A 




JSR 


VERT 


.:DRAW LEFT LINE 1 


0109 


7A78 


68 




PLA 






0110 


7A79 


AA 




TAX 
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DISPLflVSRC PAGE 8903 

LINE# LOC CODE LINE 



0111 

0112 
0113 
8114 
0115 
0116 
0117 
0118 
0119 

0128 

0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 

0130 

0131 
0132 
0133 
0134 
0135 
0136 
0137 
8138 
0139 

0140 

0141 
0142 
8143 
0144 
0145 
6146 
0147 
0148 
0149 



7A7A 
7A7B 
7A7C 
7A7B 
7A7E 
7A7E 
7A7E 
7fl7E 
7A7E 
7A7E 
7fl7E 
7A7E 
7A7E 
7A7F 
7A80 
7A81 
7A82 
7A83 
7A85 
7A88 
7A89 
7A8B 
7fi8D 
7A8F 
7A91 
7A93 
7fl95 
7A96 
7A98 
7A99 
7A9B 
7A9E 
7AA1 
7AA2 
7flfl3 
7HH4 
7HH5 
7fiH6 
7AA7 



68 
RS 

68 
68 



7fl 



48 

SB 

48 

8fl 

48 

A6 56 

20 21 

Cfl 

D0 FA 

A6 57 

A4 58 

Bl 54 

49 80 

91 54 

88 

D0 F7 

Cfl 

F0 06 

20 21 

4C 8D 7fl 

68 

flfl 

68 

fl8 

68 

60 



H 



PLfl 
TflV 
PLfl 
RTS 

;S/R TO REVERSE FIELD BLOCK OF SCREEN 

; START LINE # IN TEMPI 
;# OF LINES IN BLOCK = TEMP2 
J# OF COLUMNS IN BLOCK = TEMPS 
;STflRTL = COLUMN # OF START 



BLOCK PHfl 

TVft 

PHfl 

TXA 

PHfl 
BLOCK 1 LBX TEMPI 
BL0CK2 JSR NEXTL 

DEX 

BNE BL0CK2 

LDX TEMP2 
BLOCKS LBV TEMP3 
BL0CK4 LDfl (STARTD.V 

EOR #$80 

STA CSTARTDA' 

DEV 

BNE BL0CK4 

DEX 

BEG BEND 

JSR NEXTL 

JMP BLOCKS 
BEND PLA 

TAX 

PLA 

TAV 

PLA 

RTS 

. END 



ERRORS = 0800 



SVMBOL TABLE 



JVMBOL 


VALUE 














BEGIN 


7A00 


BEND 


7AA1 


BLOCK 


7A7E 


BLOCK 1 


7A83 


BL0CK2 


7A85 


BLOCKS 


7A8D 


BL0CK4 


7A8F 


BORDER 


7A33 


H0RI2 


7A00 


NEXTH 


7A04 


NEXTL 


7A21 


NEXTV 


7A14 


STARTH 


0055 


STflRTL 


0054 


TEMPI 


0056 


TEMP2 


0657 


TEMPS 


0058 


VERT 


7A0E 











END OF ASSEMBLV 
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CP 

a 

IS) 

T3 



106 REM *************************** 

101 REM *BflSIC LOADER FOR MACHINE 

102 REM *CODE PROGRAM DISPLAV. 

109 REM *************************** 

110 DATA31232 

1 20 DAT A98 , 48 , A4 , 57 , A5 , 58 , 9 1 , 54 , 8S , DO , F9 , 68 , AS , €3 ■ 

130 DATA98, 48, A4, 57, A2, OO, A5, 58, 81 , 54, 26, 21 , 7A, 88, 10, F6, 68, AS, 63 
1 40 DATA98 , 48 , 1 8 , A9 , 28 , 65 ,54,85,54 , A9 , 33 , 65 , 55 , 85 , 55 , 68 , Ay , b W 
150 DATA48,98,48,8A,43 

160 DATAA9, AO, 85, 58, A9, FF, 85, 54, A9, 7F, 85, 55, A9, 2S, 85, 57, 23, 30, 7A i 
173 DATAA9,BF,85,54,A9,83,85,55,A9,28,85,57,20,30,7A | 

180 DATAA9,27,85,54,A9,80,85,55,A9,17,85,57,28,3E,7A 
193 DATAA9, 00, 85, 54, A9, 80, 85, 55, A9, 17, 85, 57, 20, 3E, 7A 

200 DATA68,AA,68,A8,68,60 ] 

210 DATA48,98,48,8A,48 I 

220 DATAA6 , 56 , 20 , 2 1 , 7A , C A , DO , FA , A6 ,57 -; 

233 DATAA4 , 58 , B 1 , 54 , 49 , 80 , 9 1 , 54 , 88 , DO , F7 , CA , F3 , 86 , 20 , 2 1 , 7A ■ 

240 DATA4C, 8D,7A, 68, AA, 68, A8, 68, 68 | 

250 DATA* J 

260 READL I 

270 READA* 5 

280 C=LEN<A*> 
290 IFA$="*"THEN390 
330 IFC<1ORO2THEN380 
310 A=ASC<A$>-48 
320 B=ASC < R I GHT$ < A* , 1 > > -48 
330 N=B+7* < B>9 > - < C=2 > * < 1 6* < A+7* < A>9 ) ) ) 
340 IFN<0GRN>255THEN380 | 

350 P0KEL,N 1 

360 L=L+1 I 

370 G0T0270 | 

380 PRINT ,, BVTE"L"=C"A$"3 ????" I 

390 END J 

READV. 1 



kk 



HIGH DENSITY PLOTTING 



One great drawback with having a display only 40 characters 
wide and 25 lines deep is the poor definition acheivable when 
displaying data in graphical form. Although there is no way, 
short of modifying the circuitry, that the number of 
characters per line can be increased, one can improve the 
definition by clever manipulation of the graphics characters, 
lhus the five quarter square characters can be used to double 
the definition of a graph plotted on the screen. Similarly by 
using the seven characters with horizontal lines of different 
thickness one can draw a bar chart with a resolution of 
better than one in 160. The three programs in this section 
employ these techniques for graph plotting, barcharts and 
general graphical display. 



DDPLOT 



This subroutine draws a double density graph of a function 
defined as FNP(X) prior to the subroutine call. The axes are 
drawn accross the centre of the screen and down the left hand 
side; no scale is drawn. Lines 24034 to 24040 perform the 
double density character selection from one of four quarter 
square characters. 



Parameters used: 



FNP(X) - the function to be plotted by the subroutine. 



BARPLOT 



BARPLOT draws a vertical barchart of up to 31 variables with 
a definition of 1 in 160. The variables are transfered to the 
subroutine as an integer array P%(X). The barchart is 
surrounded by a border and given a heading in reverse field 
characters in the centre of the top line of the screen. A 
vertical scale is given from zero to the maximum value to be 
displayed, the line increment is thus 1/160 of the maximum 
value. The horizontal scale numbers the bars from 1 to 31- 
this number was chosen to allow the bar chart to display 
daily data over a one month period and can be changed if 
desired Lines 24166 to 24184 increment the vertical line in 
eight discrete steps, using different graphics characters for 
each increment. 
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Parameters used: 

P$ - variable for table heading; maximum length 40 

characters. 

P%(X)- table of data to be displayed in barchart; maximum 31 

entries, all integers. 

SP$ - string variable of 40 space characters. 

LPLPTSRC 



This machine code program allows points to be plotted on the 
screen in double density format (ie. screen dimensions are 80 
x 50 points). As with the subroutine DDPLOT, this is done by 
using the quarter square graphics characters. This program 
however is much cleverer since it takes into account all the 
combintions of quarter square characters which can be placed 
in a single character space. The graphics character occupying 
a single character space will change when new points are 
plotted within that character space, without affecting 
existing plot points in the space. The program requires three 
variables which can be passed from a Basic program using POKE 
commands. These variables are the X coordinate passed as one 
byte, the Y coordinate passed as two bytes (the second byte 
is always set to zero). The third variable is set to if the 
point is to be added to the display, and 1 if it is to be 
deleted. The program incorporates error checking and will set 
an error flag if an error condition is present. The error 
states are: firstly, plot coordinates are out of range, and 
secondly a plot point already exists at the coordinates 
specified. The program is located in the second cassette 
buffer and can be loaded either as a machine code program 
using the monitor, or with a Basic loader. This is contained 
in lines 10-400 of the program LINEPLOT. 

Example: To plot a point at X - Y coordinates 14-25 use 
the following commands. 

POKE 84,14 X co-ordinate 

POKE 85,25 Y co-ordinate LSB 

POKE 86,0 Y co-ordinate MSB 

POKE 89,0 add point 

To check the error status. 

PEEK (998) 
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LINEPLOT 



This program is an example of the use of the previous machine 
code program; lines 10-400 are a Basic loader for LPLOTSRC. 
The program is designed to draw lines in quarter square 
characters between two sets of screen coordinates. These are 
input in line 1005. The remainder of the program calculates 
the position of the next point in the line, (parameters XI 
and Yl), which are poked into the relevant locations prior to 
jumping to the machine code program in line 2270. The program 
could be easily modified to act as a subroutine within a 
larger program. 
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u 



(- 

2 

G 

1006 REM **************************** £ 

1001 REM *EXflMPLE OF SUBROUTINE CALL W £ 

1002 REM *CONTROL CURSOR POSITION PRIOR * 

1003 REM *TO PRINTING ON SCREEN. u 
1003 REM 

1010 REM **CLEflR SCREEN** 
1020 PR INT" 3"; 

1030 REM **STflRT PRINTING FIRST LINE AT** 
1040 REM **LINE 5 COLUMN lfi** 
1050 COL=10:LNE=5 
1060 GOSUE 29800 

1070 PRINT"*FIRST LINE C0L=18,LINE=5" 
10S0 REM **SECONH LINE C0L=1,LINE=15** 
1090 COL=l -LNE=15 
1100 GOSUE29800 

1110 PRINT"*SECOND LINE COL=l, LINE=1S" 
1500 END 
2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

29S00 REM *************************** 
29802 REM *CURSOR CONTROL SUBROUTINE 
29804 REM *************************** 

29806 coL*="»i»iii»mt»it» mmmmmiim , 

298U8 LNE*= " M«««««*M«««^«^^ 
29810 F0RRZ=1T02 
29812 PR I NT" 3"; 

293 1 4 I FCOL> 1 THENPR I NTLEFT* C COL* , COL - 1> ; 
2981 6 IFLNEM THENPR I NTLEFT$<LNE*, LNE-1 > ; 
298 18 I FflZ= 1 THENPR INT" 
29820 NEXTflZ 
29822 RETURN 
REflBV. 



d 
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-J 

~0 



1000 
1001 
1002 
1009 
1010 
1020 
1030 
2000 
3000 
4000 
5000 
6000 

24000 
24002 
24004 
24006 



OF SUBROUTINE CALL 
GRAPH OF FUNCTION 



♦SUBROUTINE TO 
*DENSITV GRAPH 
♦DEFINED BV - 



DRAW A 
OF THE 
FNP<X> 



DOUBLE 
FUNCTION 



REM 

REM *EXflMPLE 

REM *TO DRAW 

REM 

DEFFNP (. X > =S I H < X/6 . 28 > 

GOSUB24000 

END 

REM 

REM 

REM 

REM 

REM 
REM 
REM 
REM 
REM 
REM 
24010 PRINT'TT' 
240 1 2 F0RX=32768T033728STEP40 : POKEX , 1 O 1 : NE 

240 1 4 PR I NT " IQmiKmMUMOMa 

24016 F0RX=1T079 
24018 Vl=FNPO<:> 
24020 V=24+24*V1 
24022 X2= I NT < X/2 > • V2= I NT < V/2 > 
24024 I FX2>39ORV2>25THENGOTO24044 
24026 Xl=X/2-X2:Vl=V/2-V2 
24028 A=33728-V2*40+X2 
24030 I FX 1 < . 5THENX 1 =0 
24032 I F V 1 < . 5THENV 1 =0 

24034 I FX 1 =0 ANDV 1 =OTHENC= 1 23 G0T024042 
24036 I FX 1 OOANDV 1 O0THENO 124: G0T024042 
24038 I FX 1 OOANDV 1 =OTHENC= 1 08 : G0T024042 
24O40 I FX 1 =0ANDV 1 OOTHENC= 1 26 
24042 POKE A, C 
24044 NEXTX : RETURN 
RE ADV. 



XTX 



JS"; I 



*8 



C 



1861 

1002 

1809 

1810 

1828 
1838 

1040 
1058 
1 060 
1070 
1080 

2088 
3888 
4888 
5888 

*- 6888 
24188 
24182 
24104 
24186 
24108 
24110 
24112 
24114 
24116 
24118 
24128 
24122 
24124 
24126 
24128 
24130 
24132 
24134 

^ 24136 
24138 
24148 
24142 
24144 
24146 
24148 
24150 
24152 
24154 
24156 
24158 
24160 
24162 
24164 
24166 
24168 
24170 
24172 

- 24174 



OF SUBROUTINE CALL 
fi BRRCHfiRT. 



100 DIMPEOl 
110 SP*=" 
1000 REM 

REM *EXflMPLE 

REM #TO DRAW 

REM 

F0RQ=1T031 

INPUTp:IFP<0THEN 1050: REM ** INPUT TILL NEGATIVE NUMBER** 

P2<Q>=P 

NEXTQ 

P*= " EXAMPLE " : REM **HE AD I NG*# 

GOSUB24100 

GETA*:IFA$=""THEN 1070 -REM **WAIT TILL KEV PRESSED TO END** 

END 



a. 
< 

CO 



REM 

REM 

REM 

REM 

REM 
REM 
REM 
REM 
REM 
REM 
REM 



♦SUBROUTINE TO DRAW BARCHART 
♦USING 31 VARIABLES STORED 
*AS PZ<X>. TABLE HEADING IS 
♦TRANSFERRED AS P*. 
*************************** 



Al = >::40-A>/2 
SP*,A1> 

PRINT"S"P$"B" 



A=LEN<P*> 
A1*=LEFT*- 
PR I NT "3"; 
PRINTA1*; 

PRINT" 

F0RX=32852T03361 2STEP48 : POKEX, 
F0RX=32885T033685STEP48 : POKEX, 

pr i nt " mimmmmmmsamsm 
PRINT" 1 

B=0 

F0RQ=1T031 

fl=PKCQ> 

IFA>BTHENE=A 

NEXTQ 

PRINT"MMWM"B 

A=B/1 68 

F0RQ=1T031 

PR I NT" SJ" 

FORA V= 1 T02 1 : PR I NT " M" .; : NEXTAV 

PRINTTAB-::Q+4>, 

flS=INT<PK<Q>/fl> 

AL= INT < AS/8 ;< 

AF=AS-'::8*AL> 

I F AL< 1 THENG0T024 1 €S 

FGRQS=8T0AL-1 

PRINT" a "11".; 

NEXTQS 

IFAF=8G0T024186 

0NAFG0T024 1 78 , 24 1 72, 24 1 74 , 

PRINT""." :G0T024 186 

PRINT"H-.":G0TO24136 

PRINT"*-" :G0T024 186 



lei^NEXTX 
101--NEXTX 



31 



I'4 176,241 78 , 24 1 88 , 24 1 82 , 24 1 84 
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24 1 76 
24178 
24186 
24182 
24184 
24186 
24188 
REFlBV. 



PRINT""." 
PRINT" ST" 
PRINT" ST" 
PR I NT "ST" 
PRINT" ST" 
NEXTQ 
RETURN 



G0TO24186 
G0T024 1 86 
G0T024186 
G0T024186 
GGTG24186 
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LPLOTSRC PAGE 0001 

LINE# LOG CODE LINE 



0001 


0000 






0002 


0000 






0003 


0000 






0004 


0000 






0605 


0000 






0006 


0000 






0007 


0000 






0008 


0000 






0009 


0000 






0010 


0000 






0011 


0000 






0012 


0000 






0013 


0000 






0014 


0000 






0015 


0000 






0016 


0000 






0017 


0000 






0018 


0000 






0019 


0000 






0020 


0000 






0021 


0000 






0022 


0000 






0023 


033A 






0024 


033A 






0025 


033A 


ft9 


00 


0026 


033C 


8D 


E6 03 


0027 


033F 


85 


5ft 


0028 


0341 






0029 


0341 






0030 


0341 






0031 


0341 


fl5 


55 


0032 


0343 


C9 


■3<£ 


0033 


0345 


90 


03 


0034 


0347 


EE 


E6 03 


0035 


034H 






0036 


034 fl 






0037 


034 H 






0038 


034ft 


H5 


54 


0039 


034C 


C3 


50 


0040 


034E 


90 


03 


0041 


0350 


EE 


E6 03 


0042 


0353 






0043 


0353 






0044 


0353 






0045 


0353 


2C 


E6 03 


3046 


0356 


FG 


01 


0047 


0358 


60 




0048 


0359 






0049 


0359 






0050 


0359 






0051 


0359 






0052 


0359 


ft9 


31 


0053 


035B 


o'8 




0054 


035C 


E5 


trcr 


0055 


035E 


85 


crer 
■J-.' 



;*PET IN DOUBLE DENS I TV FORMfiT 
;*X-COORD IN LOCftTION 84 
.;* V-COORD IN LOCftTION 85 
,*0 IN LOCftTION 89 TO ADD 
.;*1IN LOCftTION 89 TO DELETE 
;*ERROR FLAG IN LOCftTION 998 
.;*1 OR 2 = PLOT OUT OF RANGE 
;*4 = NON PLOTTAELE CHARACTER 
;* ALREADY AT THESE COORDINATES 
;* ON SCREEN 



XCG0RD=*54 

VCGGRD=*55 

A0RD=$59 

BINQFF=$5A 

REFRSH=$E840 

BEGIN=*033A 

*=BEGIN 



START LDA #t0 

STA ERROR 
STA BINOFF 

;TEST IF V-COORD IS >49 

LDA VCOORD 
CMP #50 
BCC VOK 
INC ERROR 

..TEST IF XCOORD IS >79 

VOK LDA XCOORD 
CMP #80 
BCC XGK 
INC ERROR 

..RETURN IF OUT OF RANGE ERROR 

XOK BIT ERROR 
BEQ SORIG 
RTS 

.; INVERT SCREEN FROM TOP TO BOTTOM 
i< V-COORD I NATE > 

SORIG LDA #49 
SEC 

SBC VCOORD 
STA VCOORD 
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LPLOTSRC. 
LINE# LOC 



, . . PAGE 8002 
CODE LINE 



0056 
0057 
0058 
0059 

0060 
0061 

0062 
0063 
0064 
0065 
006S 
0067 
0068 
0069 

0070 
0071 

0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 

0080 
0081 

0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 

0091 

0892 
0093 
0094 
0095 
0096 
0097 
0098 
0099 

0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 



0360 
0360 
0360 
0360 
0360 
0362 
0364 
0364 
0364 
0364 
0364 
0366 
0368 
0368 
0368 
0368 
0368 
036R 
036C 
036E 
0370 
0372 
0374 
0376 
0378 
8379 
037B 
037D 
037F 
0381 
0383 
0383 
0383 
0383 
0385 
0387 
0389 
038B 
038D 
038F 
0390 
0392 
0392 
0392 
0392 
0394 
0396 
0396 
0396 
0396 
0398 
039B 
039D 
039E 

03A0 



46 54 
26 5A 



46 55 
26 5A 



06 55 
06 55 
06 55 
A5 55 
06 55 
26 56 
06 55 
26 56 
18 

65 55 
85 55 
fl5 56 
69 80 
85 56 



A6 5fl 
ftS 01 
85 5fl 
E0 00 
F0 05 
06 5fl 
Cfl 
90 F7 



R4 54 

Bl 55 



A2 00 
DB CE 03 
F0 0B 
E8 

E0 10 
90 F6 



;SflVE BOTTOM BIT OF X-COORD 
;IN BINOFF 

LSR XCOGRD 
ROL BINOFF 

;SflVE BOTTOM BIT OF V-CGGRD 
JIN BINOFF 

LSR VCOORB 
ROL BINOFF 

.; MULTIPLY VCOORB BV 40 AND 
;ADD SCREEN BASE ADDRESS 



ASL VCOORB 
flSL VCOORB 
flSL VCOORB 
LBA VCOORB 
flSL VCOORB 
ROL VCOORD+1 
flSL VCOORB 
ROL VCOORD+1 
CLC 

ABC VCOORB 
STFI VCOORB 
LBA VCOORD+1 
ADC #*80 
STfl VCOORD+1 



SAVE IN fl-REG 



START OF SCREEN 



; EXPAND BINOFF 

LDX BINOFF 
LDA #1 
ST A BINOFF 
EXP CPX #0 

BEQ ENDEXP 
ASL BINOFF 
DEX 
BCC EXP 

;GET CHAR INTO fl-REG 

ENDEXP LDV XCOORD 

LDA '::VCOORD>,V 

; CHECK CHAR IS VALID GRAPHIC 

LDX #0 
MOREC CMP TABLE, X 
BEQ FOUND 
I NX 

CPX #16 
BCC MOREC 
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LPLOTSRC PAGE 0083 

LINE# LOG CODE 



LINE 



0111 

8112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 

0120 

0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 

0130 

0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0148 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
8148 
0149 

1 50 

0151 
0152 
0153 
0154 
0155 
8156 
6157 
0158 
0159 

0160 
0160 
0160 
0160 

0161 
0161 



03A2 

03A2 

03R2 

03A2 

03A4 

03P.7 

03R8 

0308 

0308 

03A8 

03A8 

83AA 

03RC 

03AC 

03flC 

03AC 

03fllf 

03AF 

03B0 

03B1 

03B3 

03B3 

03B3 

03B3 

03B5 

03B7 

03B9 

03BA 

03BC 

03BD 

03BD 

03BB 

03BD 

83C8 

03C2 

03C4 

03C6 

03C6 

03C6 

03G6 

83C9 

03CB 

03CB 

03CD 

03CB 

03CIi 

03CE 

03CE 

03CE 

03CE 

03CF 

03B0 

03B1 

03D2 

03D3 



A9 04 
8D E6 03 
60 



A5 59 
D0 07 



8fl 

05 5A 
18 
AA 
90 Gift 



H5 5h 

49 FF 

85 5fl 
80 

•25 50 
AA 



OB 40 E8 
49 20 
29 20 
F0 F7 



BB CE 03 
H4 54 
91 55 



fc.tf 



20 
7E 
7E 
61 
7C 
E2 



;CHAR IS NOT IN TOBLE 

LBfl #4 
STO ERROR 
RTS 

;CHflR IS IN TABLE 
.;S0 ERASE OR ADD 

FOUND LDA AORD 

BNE ERASFT 

;ADD POINT TO SCREEN 

ADDPT TKA 

ORA BINOFF 

CLC 

TAX 

BCC WAIT 

..ERASE POINT FROM SCREEN 

ERASPT LDA BINOFF 
EOR #*FF 
STA BINOFF 
TXA 

AND BINOFF 
TAX 

WAIT FOR SCREEN REFRESH 

WAIT LDA REFRSH 
EOR #*20 
AND #$20 
BEQ WAIT 

:■ WRITE NEW GRAPHIC CHAR TO SCREEN 

LDA TABLE, X 
LDV XCOORD 
STA <VCOORD>, , t' 

.: RETURN SUCCESSFULLV 
RTS 
TABLE OF GRAPHICS CHARACTERS- 
TABLE .BVTE *20,*7E,*7B,*61 

.BYTE $?C,$E2..$FF..$EC 
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LPLOTSRC PAGE 0004 

LINE# LOC CODE LINE 



0161 
0161 
9162 
0162 
0162 
0162 
0163 
0163 
0163 
0163 
0164 
0165 
0166 



03D4 FF 

03D5 EC 

03D6 6C 

03D7 ?F 

83D8 62 

03D9 FC 

03Dfl El 

03DB FB 

Q3DC FE 

03DB fl0 
03DE 
03E6 
03E7 



ERRORS = 0000 



SVMBOL TABLE 



.BVTE $6C,*7F,*62,*FC 



.BVTE *Ei,$FB,*FE,*A0 



*=*+8 
ERROR *=*+l 
.END 



SVMBOL 


VALUE 














ADDPT 


03AC 


AORD 


0059 


BEGIN 


033A 


BINOFF 


805A 


ENDEXP 


0392 


ERASPT 


03B3 


ERROR 


03E6 


EXP 


0389 


FOUND 


03A8 


MOREC 


8398 


REFRSH 


E848 


SORIG 


8359 


START 


033A 


TABLE 


03CE 


WAIT 


03BD 


XCOORD 


8854 


XOK 


0353 


VCOORD 


0855 


VGK 


034A 


• 





END OF ASSEMBLV 
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c 



7F,62,FC,E1,FB,FE,A0 



1 REM 

2 REM *PROGRflM TO DRAW LINES ON SCREEN 

3 REM *USING DOUBLE DENS I TV MACHINE 

4 REM *CODE PLOT SUBROUTINE. 

6 REM 

7 REM 

8 REM 

9 REM **MflCHINE CODE LOADER** 
16 DATA826 

26 D AT A A3 , 00 , SD , E6 , 03 , 85 , 5 A 
30 DATAA5 , 55 , C9 , 32 , 90 , 03 , EE , E6 , 03 
40 DATAA5 , 54 , C9 , 50 , 30 , 03 , EE , E6 , 03 
50 DATA2C , E6 , 03 , FO , 1 , 60 
60 DAT AA9 ,31, 38 , E5 , 55 , 85 , 55 
70 DAT A46 , 54 , 26 , 5 A 
SO D ATA46 , 55 , 26 , 5A 

90 DAT A06 , 55 , 06 , 55 , 06 , 55 , A5 , 55 , 06 , 55 , 26 , 56 , 06 . 55 . 2f. .56.1 8 

9 1 DAT A65 , 55 , 85 , 55 , A5 , 56 , 69 , 80 , 85 , 56 
1 00 DAT A A6 , 5A , A9 ,01, 85 , 5 A , EO , OO , FO , 05 , 06 , 5A ■ CA , 90 . F7 
1 1 O DAT A A4 , 54 , B 1 , 55 , A2 , OO , DD , CE , 03 , FO , OB , E8 , EO . 1 O , 90 . F6 
1 20 DATA A9 , 04 , 8D , E6 , 03 , 60 
1 30 DATAA5 , 59 , DO , 07 , 8A , 05 , 5A , 1 8 . AA . 30 . OA 
1 40 DAT A A5 , 5 A , 43 , FF , 85 , 5 A , 8A , 25 . Rfl . AA 
1 50 DATAAD , 40 , E8 , 49 , 20 , 29 , 20 , FO , F7 
1 60 DATABD , CE , 03 , A4 , 54 , 9 1 , 55 , 60 
1 70 DAT A20 , 7E , 7B , 6 1 , 7C , E2 , FF . Ef: . fiC 
ISO DATA* 
20O READL 

210 READA* 

220 C=LEN-::A*> 

230 IFA*="*"THEN400 

240 IFCC10RO2THEN320 

250 A=ASC'::A|:>-48 

260 E-ASC >: R I GHT* < A* , 1 > > -48 

270 N=B+7*<B>9>-<C=2>*( 16*':'A+7*< A>3> '> :> 

280 IFN<OORN>255THEN320 

290 POKEL,N 

300 L=L+1 

3 1 O G0T02 1 

320 PR I NT " BVTE " L " = C " A* " ] o^i » 

400 PR I NT M", 

600 REM 

70O REM **ROiJTINE TO DRAW LINES FROM START TO END COORDINATES** 

300 REM 

10OO PRINT "cj", 

1O05 INPUT>a,Vi,X2,V2 

1010 GOslJB20Mfi 

1015 PR I NT "3 

1020 GOTO 1O0O 

20O0 REM 

2010 REM **CHECK COORDINATES IN BOUND** 

2O20 REM 

2030 I F (. XI >=0ANDX 1<=79 > AND < K2>=0ANDX2<=79 > THEN2060 

2040 ER*="X OUT OF RANGE" 

205O RETURN 

206O I F ■:.' V 1 >=0 AND V 1 <=49 > AND (. V2>=0ANDV2<=49 > THEN2090 

207O ER$="V OUT OF RANGE" 



O 

►j 

z 
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2088 RETURN 
2090 ER*="" 
2100 XB=X2-X1 
2110 VD=V2-V1 

2120 REM **NEflREST DIAGONAL** 
2130 A0=1 : A1=1 
2140 IFVD<0THENfl0=-l 
2150 IFXB<0THENA1=-1 
2160 REM **NEAREST HORIZ/VERT** 
2170 XE=ABS<XD> : VE=ABS'CYB> rH=XE-VE 
2180 IFIU>=0THEN2220 
2 1 90 S0=- 1 = S 1 =0 = LG= YE = SH=XE 
2200 IFVD>=0THENS0=1 
2210 GOTO2240 

2220 SO=0 : S 1 =- 1 = LG=XE = SH=VE 
2230 IFXD>=0THENS1=1 
2240 REM **SET UP** 
2250 TT=LG : TS=SH : UD=LG-SH : CT=SH-LG/2 
2255 B=0 

2260 REM **WHILE MORE POINTS DO** 

2270 P0KE84 , X 1 P0KE85 , V 1 : P0KE86 , & ■ P0KE89 , D : SVS < 826 ) 
2280 IFCT>=0THEN2320 
2290 CT=CT+TS : X 1 =X 1 +S 1 : V 1 =V 1 +30 
2310 GOTO2360 

2320 CT=CT-UD : X 1 =X 1 + A 1 • Y 1 = V 1 +AO 
2360 TT=TT-1 
2370 IFTT<=0THENRETURN 
2380 GOTO2270 
REflDV. 
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GENERAL PURPOSE SCREEN HANDLER 



This section deals with a general purpose subroutine capable 
of handling all data input and output from the screen (apart 
from graphical output). The subroutine incorporates full 
error checking, validation, and screen formatting. The basis 
of this subroutine is a table of nine arrays (in the 
subroutine these have 50 elements each, but this can be 
varied to suit the application and the machine). These arrays 
are used to store the parameters required by the subroutine, 
however, although parameters can be passed to and from this 
array from the main program, it is designed to be loaded with 
data from a disk file. The disk file will contain all the 
data required to print a message on the screen and input data 
according to certain parameters. Each element in the table 
contains nine variables (one from each array). These 
variables are: the message to be printed on the screen, its 
position on the screen, the start position of associated data 
input, input type and length. The last of the nine variables 
is an array where the data input is stored. They are as 
follows: 

LS - line of start of screen message 
CS - column of start of screen message 
LE - line of start of associated input 
CE - column of start of associated input 
P2$ - input type 

A = alphanumeric 

N = numeric 

D = date 

Y = yes/no 

C = numeric + check digit 
P3 - maximum input length 
P4 - minimum input length 
Vt$ - message for display on screen 
PD$ - data input by subroutine or 

data from main program to be output 

These variables are stored on disk as a sequential file, (a 
parameter file), all associated elements being concatinated 
together as a single string variable 79 bytes long. This disk 
file is read by the subroutine starting at line 12000, which 
eads each of the concatinated strings (up to 50) in the data 
file, and dissects them into variables in their respective 
arraysOines 12130-12170). The disk file is created when the 
program is written, using the program CRTMASK. The name given 
to this file will then be used as the variable PN$ in the 
file read subroutine at line 12000. Before creating the file 
all the screen displays used by the program should be drawn 
out on graph paper as they will appear in the program (see 
diagram). Wherever possible the same input prompts should be 
reused in the same position on different screen displays, 
economising on the number of records in the file. This 
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1 



subroutine also has a "help" facility which gives the 
operator additional information on what to do for a 
particular entry. The help facility is called by pressing the 
question mark key, a line of text explaining the current 
entry is then displayed on lines 24 and 25 of the screen. 
This line of text is also stored on the screen format 
parameter file, it is identical to a normal input message 
except that the parameters for input type, start and length, 
are set to zero. When all the data has been entered on to the J 

file using the program CRTMASK the file should be terminated | 

by entering a record consisting entirely of "Z"s, so that all 1 

79 bytes of the record contain the character "Z". An example i 

of the parameter file required by this subroutine is on the | 

disk associated with this book it is called SCREENl. . | 

Having used the subroutine at line 12000 to load the data 1 

from the parameter file into the arrays, the main screen I 

handling subroutine can now be run. This main subroutine | 

r~~ which starts at line 28500 requires four parameters in both 1 

the input mode and output mode (besides the screen format 1 

parameter arrays). The most important of these is the 1 

input/output array PD$; the pointer to which element in PD$ g 

is to be accessed is stored in the string Pl$. Pl$ is a I 

string of concatinated two digit pointers into the screen § 

format table, to screen format commands and messages required j 

in a particular screen display. Thus a string for Pl$ of 1 

"09020501" will display messages stored in elements 9,2,5, f 

and 1 of the screen format table and put the inputs in § 

PD$(9),PD$(2),PD$(5) and PD$(1). A similar string PH$ is used | 

to point to the 'help messages' in the array. PH$ is the same f 

length as Pl$ and the 'help message' for a given input will { 

be in the corresponding position to the pointers for the 
input in Pl$. With the Pl$ string "09020501" a corresponding ; 

string for PH$ could be "04000600" where 'help message' 4 f 

will be displayed if requested during input 9 and help 6 i 

during input 5. An input of 00 in PH$ means no 'help 
message', thus input 2 will have no 'help message'. The last 
parameter required is PO. This is used to indicate whether 
the subroutine is to be in the input or output mode. If PO is 
set to then the subroutine is in the normal input mode, and 
the result of each input line will be put into the 
corresponding element of PD$. If PO is 1 then the subroutine 
will be in tho output mode and the contents of the 
corresponding elements of PD$ will be displayed after the 
message starting at the input start location. Lines 2000-2040 
are an example of parameter calling routine using the screen 
handling subroutine and setting up the parameters for input 
of data. Lines 3000-3050 are simply a means of displaying the 
contents of the output parameters in array PD$ which have 
been input by the subroutine. 

All the standard data input command keys are used (see 
section on data input subroutines p. 13). Note that when a 
field is aborted the word "abort" is placed in the 
corresponding element of array PD$. 



58 



Parameters used: 



Arrays: 



line of start of message,two bytes long 
column of start of message,two bytes long 
line of start of input or output variable, two bytes 



column of start of input or output variable, two 



LS(X) - 

CS(X) - 

LE(X) - 

long 

CE(X) - 

bytes long 

P2$(X)- input type, one byte long 

maximum input length, two bytes long 

minimum input length, two bytes long 
screen input message or help message max 66 bytes 



P3(X) - 
PMX) - 
M$(X) - 
long 
PD$(X)- 



result strings either from input or to be output, 



maximum length defined by contents of variable P3(X) 



Mask strings: 

Pl$ _ string of pointers PI into arrays 

M$,LS,CS,LE,CE,P2$,P3,P4 and PD$; each pointer occupies two 

bytes and there is no limit on the number of pointers in the 

string. 

PH$ - 

messages, 

a pointer 



into array 



string of pointers 

occupies two bytes 
position in Pl$. A 
is available 



each pointer 
in the same 



that no help message 



M$ used for help 
and corresponds to 
00 entry signifies 
for that entry. 



Various: 

PO - set to one for subroutine to function in output mode 

and set to zero for normal input mode. 

PN$ - screen format file name required when screen parameter 

file is read during program initialisation, should contain 

the file name then ",S,R"(eg PN$="SCREEN1,S,R" where SCREENl 

is the file name) 

SP$ - string of 40 space characters 
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n 

73 
H 

> 



100 SP*=" 

110 CR*=CHR*<13> 

1080 REM *************************** 

1001 REM *THIS PROGRAM IS DESIGNED TO 

1002 REM *CREflTE A DISPLAY DATA FILE 

1003 REM *FOR USE EV THE PROGRAM 

1004 REM *CRTFORMAT. 

1009 REM *************************** 
2000 INPUT'THWDCRT MASK FILE NAME"; A* 
2050 B*= " e 1 = " + A$+ " , SEQ , WR I TE " 
2060 OPEN 15,3,15: GOSUB3000O 
2100 OPEN2,8,2,B$:GGSUB30000 
2105 PRINT#2,A$CR$ 

2110 FORQ=0TQ50:REM **MAX NUMBER OF RECORDS IN FILE** 
2120 INPUT"»a-INE OF START OF MESSAGE"; B* 
2130 B$=RIGHT$<"00"+B*,2> 
2140 CU*=B$ 

2150 INPUT"MCOLUMN OF START OF MESSAGE" ;B* 
2 1 60 B$=R I GHT$ < " 00 " +B* , 2 > 
2170 CU$=CU*+B* 

2180 INPUT"M_INE OF START OF INPUT";B* 
2190 B$=RIGHT$<"00"+B$,2> 
2200 CU*=Cll$+B$ 

2210 INPUT"*COLUMN OF START OF INPUT" ;B* 
2220 B*=R I GHT$ < " OO " +B* , 2 ) 
2230 CU*=CU*+B* 

2240 INPUT "WAR I ABLE TVPE- A, N OR M ";B$ 
2250 £*=R I GHT$ < B$ , 1 > 
2260 CU*=CLI*+B* 

2270 INPUT"M1AXIMUM INPUT LENGTH" ;B* 
2280 B$=R I GHT$ < " 00 " +B$ , 2 > 
2290 CU*=CU$+B$ 

2300 INPUT "MM INIMUM INPUT LENGTH" ;B* 
2310 B*=RIGHT*':"00"+B*,2> 
2320 CU*=CU$+B* 

2330 INPUT"nMWWtt»SCREEN MESSAGE ";M* 
2340 IFLEN-:M$>>66THEN2330 
2350 M$=LEFT$ < M*+SP* , 66 > 
2426 I FLEFT* < CU* , 2 > = " ZZ " THENQ=56 
2430 REM **PRINT CONCATINATED RECORD TO DISK** 
2440 PR I NT#2 , M*+CU*CR* 
2470 NEXTQ 
2500 CL0SE2:END 

2O000 REM **DISK ERROR DETECTION** 
30000 I NPUT# 1 5 , EN* , EM* , ET* , ES* 
30010 IFEN*="00"THEN RETURN 
30020 PRINTEM*,EN*,ET$,ES$ 
30030 CL0SE2=END 
READY. 
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100 SP*=" 

110 DIMPD*<50>..LS< 
1800 REM 

1001 
1002 
1 003 
1 004 
1005 
1006 
1 007 
1009 
1100 
1 200 
1 300 
1 400 

1410 

1500 

1 600 

,1700 

2000 

2010 

2015 
2016 
2020 
2030 

4000 

5000 

6000 

7000 

8000 

1 2000 

12010 

12020 
1 2030 
12040 
12050 
12060 
12070 
12080 
1 2090 

12100 

12110 
12120 
12130 
12140 
12150 
12160 
12170 
1 2300 
12310 
12320 

20000 
2 1 000 

22000 
23000 
25000 
25810 



50 > .. CS (. 50 > .■ LE < 50 > .. CE < 50 > .. P2$ < 50 > .. P3 < 5© > .. P4 < 50 ) , m$ <. 50 > 



*EXAMPLE OF SUBROUTINE CALL - 
♦FIRST TO INPUT SCREEN FORMAT 
*FILE FROM DISK THEN RUN SCREEN 
♦HANDLER PROGRAM TO DISPLAV 
♦SAMPLE SCREEN OUTPUT WITH 
♦DIFFERENT TVPES OF INPUT AND 
♦HELP MESSAGES. 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

PN*=" SCREEN 1" 

GOSUE 12000 

REM 

REM 

REM 

Pl*="01 02030405" 

PHt= " 060U070S00 " 

PR INT" 3"; 

PO=0 

GOSUE2S500 

END 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

FORQ 

m<Q>=" 

NEXTQ 

0PEN2,3,2,PN* 

FORQ=0TO50 

INPUT#2,H$ 

IFMin$':fl*,67, 

ls<q>=val'::mid$-:a* 
le<q>=vrl'::mid*'::a$ 

P2$ ( Q ;■ =M I Df < A* , 76 

P4-::q;'=vaL';mid^'::a* 

M*<Q>=LEFT*<A$, 66 

NEXTQ 

CL0SE2 

RETURN 

REM 

REM 

REM 

REM 

REM 

REM ♦CHECK DIGIT 



a: 
o 

H 
U 



♦S/R TO INPUT SCREEN FORMAT 
♦DATA FROM FILE NAME PN* 
♦ALSO INITIALISE ARRAVS USED 
♦BY SCREEN HANDLER. 
*************************** 
0TO50 



="ZZ"THENQ=50 

68 .. 2 > > : CS <: Q ) =VAL < M I D* < At , 70 > 2 > ) 
72 , 2 > > : CE < Q > = VAL < M I D* < A* , 74 , 2 > > 
1> :P3'::Q>=VAL-:MID*<A*,77,2>> 



CALCULATION 
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25039 
25040 
25050 
25060 
25070 
25080 
25090 
25100 
25110 



25 



120 
25136 
25140 
25150 
25160 
26000 
26500 
27000 
27500 
28500 
28510 
28520 
28530 
28540 
28550 
28560 
28570 
28580 
28670 
28680 
28690 
28700 
28705 
28710 

28730 
28740 
28750 
28760 
28770 
28780 
28790 
28800 
28810 
28815 
28820 
28830 
28840 
28850 
28860 
28870 
k'8880 
28890 
28900 
28905 
28910 
23920 
28930 
28940 
28950 



REM *NUMBER INPUT AS P* AND 

REM *CHECK DIGIT OUTPUT AS PC 

REM *************************** 

H=VfiL<:P$;':BD=10 

I FLEFT* < P$ , 1 ) = " - " THENA= V AL < R I GHT$ < P$ , LEN < P$ > - 1 > ) : ED=50 

A1=0:R2=2 

B= INK A/10) 

A1=A1+<A-<B*10))*A2 

IFE=0THEN25140 

A=B 

A2=A2+1 

GOTO25080 

flD=fll-< INTCfll/1 1 )*1 1 ) 

AD=11-RB 

PC= I NT < flD > +BD : RETURN 

REM 

REM 

REM 

REM 

REM **************************** 

REM *START OF SCREEN FORMAT S/R 

REM **************************** 

I=LEN<P1*> 

f0rai=1t0istep2 
ifak1thenai = 1 
pi=val<mid$<pi*,ai..2)) 

PH=VRL C M I D* < PH* , fl 1 , 2 ) > 

PD*<P1>="*" 

REM **************************** 

REM *CLR HELP A PRINT MESSAGE 

REM **************************** 

IFPL=2THENC0L=1 : LNE=24 : GOSUE29800 •' PRINTSP*; 

PL=0 

COL=CSCPl ) : LNE=LS<P1 > : GOSUB29800 : PRINTLEFT*<M*<P1 ) , 40) ; 

COL=CE<Pl ) : LNE=LE<P1 > •' GOSUB29800 

I FPO= 1 THENPR I NTPB* < PI): G0T0294 1 

REM ***CLEAR INPUT VARIABLES*** 

p£_ II II 

REM ***PRINT INPUT PROMPT*** 

FORQ= 1 TOPS < P 1 > : PR I NT " _" ; : NEXTQ 

FORQ= 1 TOPS < P 1 > •• PR I NT " II" ; : NEXTQ 

REM ***GET INPUT CHARACTER*** 

REM ***&• TEST FOR COMMANDS*** 

POKE 158,0 

GET A*-IFA$=""THEN 28815 

I F A*=CHR$ < 1 3 ) THEN28960 

IFA$="*-"THEN GOTO29010 

IFA*=" t"THENPL=l : G0T029390 

IFA*="!"THEN GOTO29400 

I F A*= " ? " THEN PL=2 •• G0T029760 

REM 

REM ***DELETE LINE*** 

REM 

I Ffl*OCHR$ < 20 ) THEN29O80 

IFP*=""THEN28810 

PL=LEN < P* ) : FORQ= 1 TOPL • PR I NT " II" j : NEXT 

GOTO28750 

REM 

REM ***CHECK FOR RETURN*** 

REM 
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28966 I FLEN < P* ) >=P4 < P 1 > THEN29360 

28970 GOTO28810 

28980 REM 

28990 REM ***DELETE CHARACTER*** 

29000 REM 

290 1 I FP*= " " THEN288 1 

29030 P$=LEFTf < P* , LEN < Ft > - 1 > 

29040 fi$="ILJI" :GOTO29306 

29050 REM 

29060 REM ***DETERMINE INPUT TVPE*** 

29070 REM 

29080 I FP2* < P 1 > = " ft " THEN29240 

29090 I FP2* < P 1 ) = " N " 0RP2* < P 1 > = " C " 0RP2* < P 1 > = " D " THEN29 1 70 

29 1 00 I FP2* < P 1 > = " V " THEN29550 

29110 REM 

29120 REM 

29130 GOTO29240 

29140 REM 

29150 REM ***NUMERIC INPUT *** 

29160 REM 

29 1 70 I Fft*= " . " THEN29290 

29 1 80 I Fft*= " - " fiNDP*= " " THEN29290 

29 1 90 I Ffl*< " " ORfi*> " 9 " THEN288 1 

29200 GOTO29290 

29210 REM 

29220 REM ***FlLPHfiNUMERIC INPUT*** 

29230 REM 

29240 IFft$<" "THEN28810 

29250 I Ffi*> " Z " flNDfl*< " I " THEN288 1 

29260 REM 

29270 REM ***CONCflTINflTE**# 

29280 REM 

29290 P*=P*+ft* 

29300 PRINTfl*; 

293 1 I FLEN < P* > <P3 < P 1 > THEN288 1 

29320 I FLEN < P* > =P3 < P 1 > ANDP2* < P 1 > = " C " THEN29450 

29330 I FLEN < P$ > =P3 < P 1 > ANDP2* < P 1 > = " D " THEN29630 

29340 REM 

29350 REM ***PLftCE IN INPUT flRRftV*** 

29360 PD*«::P1>=P* 

29370 REM 

29380 REM #**CHECK FOR UP ONE LINE*** 

29390 IFPL=lTHENftI=ftI-4 

29400 NEXTfll 

29410 RETURN -REM ***S/R EXIT*** 

29420 REM 

29430 REM ***CHECK DIGIT INPUT 

29440 REM 

29450 PR I NT " _lll" j •' GOSUB2500O 

29460 GETft* : I Ffl*= " " THEN29460 

29470 GETfll*: IFftl*=" "THEN29470 

29480 H*=fl$+H 1 $ ■ PR I NTfi* .; ■' ftC=VftL < fi$ > 

29490 I FftC=PCTHEN29360 

29500 FORQ= 1 TO 1 00 : NEXT 

29510 PR I NT "HI III"; :G0T029458 

29520 REM 

29530 REM ***VES/NO INPUT*** 

29540 REM 

29550 I Ffl*= " V H THENP$= " 1 " : PR I NT " VES " ■■ GOTG29360 

29560 I Ffl$= " N " THENP*= " " : PR I NT " NO " = GOTO29360 
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29576 
29586 
29598 
29606 
29610 
29620 
29630 
29640 
29650 
29660 
29670 
29688 
29690 
29700 
29710 
29720 
29730 
29740 
29758 
29768 
29770 
29788 
29790 
29888 
29818 
29828 
29838 
29848 
29868 
29878 
29880 
29910 
RE ADV. 



GOTO28810 

REM 

REM 

REM 

REM *DflTE INPUT AND VALIDATION 

REM *************************** 

AM*= " 3 1 283 1 383 1 383 1 3 1 383 1 383 1 " 

AL*= " 3 1 293 1 383 1 383 1 3 1 383 1 383 1 " 

fiD*VflL<LEFT*<P*,2>) 

AM= VAL < M I D* < P* .• 3 , 2 > > 

AV= V AL C R I GHT* < P* , 2 > > 

I F AM< 1 ORAM> 1 20RAV<780RA V>850R AIK8 1 0RAD>3 1 THEN29728 

AR= 1 988+AV •• I F I NT < AR/4 > =AR/4THENAM*=AL* 

I F AD>VAL (MID* < AM* , AM*2- 1 , 2 > > THEN2972© 

GOTO29360 

GOTO28910 

REM 

REM ***HELP MESSAGE PRINT*** 

REM 

IFPH=0THEN28710 

COL=l : LNE=24 •' GOSUB29800 

PRINT" 3 HELP - ■"; LEFT* < M*<PH>, 66 >; 

GOTO28710 

REM *************************** 

REM *CURSOR CONTROL SUBROUTINE 

REM *************************** 

AC*= " »ii»»»»»ft»»i»m»i»i»mii»»i " 

AD*= " M«?M«««*^««^tf^«««^ 

PR I NT" a".; 

I FCOL> 1 THENPR I NTLEFT* < AC* , COL- 1 > ; 

I FLNE> 1 THENPR I NTLEFT* < AD* , LNE- 1 > ; 

RETURN 
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ARRAY SORTS 



Where data is stored in an array, it is frequently desirable 
to have the data in an alphabetic or numerical order. The 
principle reason for storing data in an ordered format is 
that it is quicker and easier to find an item in an ordered 
array than in an unordered array. The problem is that data is 
rarely entered into an array in an ordered form. To order the 
array a special sort subroutine is used to convert the 
unordered data into ordered form. There is a wide range of 
different sort algorithms the choice of which one to use 
depends on several factors, such as the time taken to sort an 
array of a certain size and the amount of extra memory 
required for temporary storage by the sort program. The 
general principle being the quicker the sort the larger the 
amount of memory required to store the variables. The time 
taken to sort an array depends on the the array size. The 
relationship between size and speed is exponential. Doubling 
the array size will require much longer than double the time 
to sort. The following are three different types of simple 
array sort subroutines. 



BUBBLESORT 



This is the simplest of all sort algorithms and also one of 
the slowest, however, as it uses virtually no temporary 
storage, a bubblesort is the ideal choice if memory is at a 
premium and sort time is not important. The first version of 
oubblesort will sort an array PS$ of PN elements into 
alphabetical order. The second version is identical except 
that the sort key length PK can be selected. Meaning that if 
the sort key is set to 3, the array will be sorted so that 
only the first three characters of each element are in, order, 
the order of any subsequent characters is ignored. Note: 
alphabetic sorts will also sort numbers providing they are 
all integers and stored in string format. Fractional numbers 
are likely to be sorted incorrectly. 



Parameters used 



PS$ - array to be sorted, sorted output stored in same array 
PN - number of elements in array 
PK - length of sort key 



SHELLMETZNER 



A Shell-Metzner sort is considerably faster than a 
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bubblesort, but as it is also very economical on temporary 
storage requirements, it is probably the best simple array 
sort algorithm for general purpose use. The first version of 
the Shellmetzner sort will sort an array PS$ of PN elements 
into alphabetic order with a sort key length of PK. The 
second version will sort PN numeric variables, stored in 
string format in array PS$, into numeric order, placing 
fractional numbers into their proper positions as well as 
integers. 



Parameters used: 



PS$ - array to be sorted; sorted output put in same array 
FN - number of elements in array PS$ 
PK - sort key length 



REPLACESORT 



This is the fastest of the three algorithms in this section, 
but unfortunately it requires a considerable amount of extra 
memory. The main reason for the extra memory requirement is 
that the output array is different from the input array, also 
an index array of twice the number of elements in the input 
array is required. The output array is not absolutely 
necessary, since the index array will contain information 
about the proper order of the data in the input array. Line 
26270 could therefore be omitted to save space occupied by 
the output array. If this line is omitted then the index 
array must be used to indicate the order of the input array. 
The existence of an index array is useful when sorting a 
table consisting of more than one array. By sorting one array 
the pointers in the index array can be used with the other 
arrays, thereby keeping associated elements in different 
arrays together. 



Parameters used: 



p N - number of elements in input and output arrays 

(index array has 2 x PN elements) 
PU$(PN)- input array of PN elements 
PS$(PN)- output array of PN elements 
PK2PN)- index array of 2xPN elements 
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106 DIM PS*<10> 
1000 REM 

REM *EXflMPLE 

REM *T0 SORT 

REM #USING fi 

REM 

FORQ=1TO10 

INPUTPS*<Q>-REM 

NEXT 

PN=10 

GOSUB20000 : REM 

FORQ=1TO10 

PRINTPS*<Q>-REM 

NEXTQ 

END 

REM 

REM 

REM 

REM 

REM 



1001 

1002 

1 003 

1 009 

1010 

1020 

1030 

1 040 

1050 

1 060 

1070 

1080 

1090 

2000 

3000 

4000 

5000 

6000 

20000 

20010 

20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 

20100 
20110 

20120 

20130 

REfiDV. 



OF SUBROUTINE CALL 
DATA IN ARRflV PS*Q 
BUBBLE SORT. 



o 

<S) 
UJ 

-4 
CO 
CO 

CO 



** INPUT DATA INTO PS*0*# 

**SGRT** 

**PRINT SORTED ARRflV** 



REM*BUBBLE SORT OF ARRflV PS* 
REM*NUMBER OF ELEMENTS IN 
REM*flRRflV PN. 



FORG=lTOPN-l 

FORX=<Q+i>TOPN 

I FPS* < X ) >=PS* < Q > THEN2S 1 1 

fl*=PS*(Q> 

PS*<Q>=PS*C<!> 

PS*<X>=A* 

NEXTX 

NEXTQ 

RETURN 



23000 R 

23010 REM*BUBBLE SORT OF ARRflV PS* 

23020 REM*HUMBER OF ELEMENTS IN 

23030 REM*fiRRfiV PN KEV LENGTH PK 

23040 REM************************* 

23050 FORQ=lTOPN-l 

23060 FORX=(Q+l >TOPN 

23878 IFLEFT*<PS*<X> , PK>>=LEFT*<PS*<Q> . 

23080 H*=PS$<Q> 

23090 PS* i Q ) =PS* < X > 

23100 PS*CO=A* 

23110 NEXTX 

23120 NEXTQ 

23130 RETURN 



PK')THEN23110 



&. 

O 
(/) 
UJ 

J 

CO 

co 
D 

CO 
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m 



m 

H 
N 

z 
m 
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106 DIM PS*<18> 

1080 REM 

REM *EXRMPLE OF SUBROUTINE CALL - 

REM *TO INPUT AND SORT RN RRRRV P: 

REM *USING fl SHELL METZNER SORT. 

REM 

FORQ=1TO10 

INPUT PS*<Q) 



1001 

1002 

1003 

1009 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

2000 

3000 

4000 

5000 

6000 

23200 
23210 
23220 
23230 
23240 
23250 
23260 
23270 
* 23280 
23290 
23300 
23310 
23320 
23330 
23340 
23350 
23360 
23370 
23380 
23390 
READY. 



3*0 



NEXTQ 



SORT 



INPUT 

PN=10 

GOSUB23200 

FORQ=1TO10 

PRINTPS*<Q> 

NEXTQ 

END 

REM 

REM 

REM 

REM 

REM 



KEY 



LENGTH ";PK 



REM*SHELL-METZNER SORT OF RRRRV 
REM*PS$, NUMBER OF ELEMENTS PN 
REM*KEY LENGTH PK. 



RN=PN : RM=PN 

RM=INT<RM/2> •" IFRM=0THEN RETURN 

fi,T=l:fiK=AN-fiM 

RI=RJ 

RL=RI+RM 

I FLEFT* < PS* < fl I > , PK ) OLEFT* C PS* < RL ) , PK > THEN233 1 

fl$=PS$<fin 

PS$<RI>=PS$<RL> 

PS*<flL>=R* 

RI=RI-RM 

IFRK1THEN2337© 

GOTO23290 

fl.J=RJ+l 

IFRJ>RKTHEN23260 

GOTO23280 



3*: 
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100 DIM PS*<10) 

1008 REM 

1001 REM *EXAMPLE OF SUBROUTINE CALL - 

1002 REM *TO INPUT AND SORT AN ARRflV 

1003 REM #OF NUMERIC VARIABLES PSSO 

1004 REM *USING A SHELL MET2NER SORT. 

1009 REM ***************************** 

1010 FORQ=1TO10 

1020 INPUT PS*<Q>: REM** INPUT ARRAY** 
1030 NEXTQ 
1040 PN=10 

1050 GOSUB23200: REM**SORT** 
1060 FORQ=1TO10 

1070 PRINTPS*<Q) •■ REM**PRINT SORTED ARRAY** 
1080 NEXTQ 
1090 END 
2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

23200 REM**************************** 
23210 REM*SHELL-MET2NER SORT OF ARRAV 
23220 REM*PS*, NUMBER OF ELEMENTS FN 
23230 REM* < NUMERIC VARIABLES) 
23240 REM**************************** 
23250 AN=PN : AM=PN 

23260 AM=INT<AM,"2> : IFAM=0THEN RETURN 
23270 AJ=1 : AK=AN-AM 
232S0 AI=AJ 
23290 AL=AI+AM 

23300 I F VflL < PS* < A I > > OVAL < PS* < AL > > THEN23370 
23310 A*=PS*<AI) 
2332W PS*<AI)=PS*<flL> 
23330 PS$'::AL>=A* 
23340 AI=AI-AM 
23350 I FA I < 1 THEN23370 
2336fci GOTO23290 
23370 A J=AJ+ 1 
233S0 IFAJ>AKTHEN23260 
2339fi GnTn2:-.'2ftfi 
RE ADV. 



U 

5 

:e 

Z 

-J 

J 

UJ 

X 
in 
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> 
O 

rn 

O 
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lee dim Pi<20>,PU*a0;',PS*a0> 

1 00fi REM ♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦ 
♦EXAMPLE OF SUBROUTINE CALL - 
*T0 SORT AN ARRAV PS*0 USING 
♦A REPLACESORT. THE CONTENTS OF 
♦BOTH THE UNSORTED, INDEX, AND 
♦SORTED ARRAVS ARE PRINTED AFTER 
♦THE SORT. 



1001 
1002 

1 003 

1 004 
1005 
1 006 
1 009 
1010 
1020 
1 030 
1040 
1 050 
1 060 
1 070 
10S0 
1100 
2000 
3000 
4000 
5000 
6000 

26200 
26201 
26202 
26203 
26204 
26203 
26210 
26220 
26230 
26240 
26250 
26260 
26270 
26280 
26290 
26380 
26310 
26320 
26330 
26340 
26350 
26360 
RE ADV. 



PKQ) 



REM 

REM 

REM 

REM 

REM 

REM 

REM 

FORQ=1TO10 

INPUTPU*<Q> 

NEXTQ 

PN=11 

GOSUB26200 

FORQ=1TO10 

printpu*<;q>,ps*(q> 

NEXTQ 

END 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

B=0 : A=PN-1 : FORQ=0TOA • PI <G>=Q : NEXTQ 

F0RQ=@T0PN*2-3STEP2 

A=A+ 1 • A 1 =P I (. Q > : A2=P I < Q+ 1 > 

GOSUB26350 

PI'::A>=PI:NEXTQ 

R4=A4-1 : AS-PI <A> : IFA3C0THEN RETURN 

FS*<B>=PU*<A3;' -B=B+1 

PKA3>=A4 

A3";=A3/2 : Q=f\3X*2 : A3=PN+A3£ 

A 1 =P I (. Q ':> : A2=P I >■. Q+ 1 > 

I FA 1 <0THENP I =A2 •' GOTO26340 

IFA2<0THENPI=A1 GOTO26340 

GOSUB26350 

P I < A3 > =P I : GOTO26290 

P I =A 1 : I FPU* < A2 ) CPU* < A 1 .':■ THENP I =A2 

RETURN 



♦REPLACEMENT SORT, UNSORTED 
♦DATA IN PU*< I >.• SORTED IN 
♦PS*a>. NUMBER OF ENTRIES 
♦IN ARRAV PN. 



I FA3> AGOTO26260 
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SORTING LARGE FILES 



Simple sorts require that the data is held in internal 
memory, usually as an array. This is feasible with small 
quantities of data, but with large files, stored on disk or 
tape, it may be impossible because of insufficient storage 
space. The solution is to use a technique utilising two data 
files, including the one holding the source file. 
One technique involves splitting the data on the input file 
(file A) into small blocks, which are then sorted and output 
to the output file(file B). The output file contains small 
sorted sets of data, if the output file is sorted a second 
time the result will be no different to the first. The reason 
for this being that the work area (the number of elements 
sorted at a time) is of a fixed size, this is overcome by 
sorting the data using work areas of different sizes. Thus 
when data is being sorted from file A to file B the work area 
may be set to the maximum size of 100 elements, but when data 
is sorted from B to A the work area is varied between 61 and 
69 elements. The work area is varied to avoid the possibility 
of the program getting in a loop which cannot be broken. If 
the work area is 100 and 60 then any file with more than 600 
records will be sorted up to the 600th record, then another 
sorted sequence would start from record 601. Since any sort 
program will stop only when the whole file is in sorted 
order, the program will in this case run indefinitely. 
The second technique also involves the use of two files, one 
is the master data file and the second is a short transaction 
file. Data is never input directly to the master file, it is 
instead input to the transaction file. Since the transaction 
file is short, probably no more than 100 records, it can be 
easily sorted in memory. The sorted transaction file is then 
merged with the much larger master file, each record in the 
transaction file being put in its correct position. This 
technique of sorting a transaction file, then merging it with 
the master file, is much faster than sorting the entire 
master file. 



FILESORT 



i his is not a subroutine, but a complete program which can be 
used as a file sort utilitv within a suite of programs. It 
can be used to sort a complete master file, or to sort a 
transaction file (the purpose for which it was designed). The 
input file which in the program is given the name "UNSORTED" 
is on disk drive 1, after the sort procedure this file is 
replaced by the output file "SORTED" also on drive 1. 
Variables initialised at the beginning of the program allow 
one to select the sort key start position and the sort key 
length, where the sort key is that part of the record which 
is to be sorted. Variables also set up at the beginning of 
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the program, determine the maximum number of records which 
can be sorted in core. These values depend on the size of 
machine and the length of each record, and must be calculated 
for each application. The sequential disk file to be sorted 
will consist of an indeterminate number of fixed length 
records (where each record is a string of less than 80 
bytes). The last record on the file will be a terminator 
record containing a string of "Z"s at least four characters 
long. The time taken to sort a file is obviously dependent on 
the number of records in the file, it is preferable to keep 
transaction files fairly small. 

Since this program is designed to be part of a program suite, 
line 1990 which terminates the program incorporates the 
commands to chain the program back to a menu program (or the 
next program in the suite). The poke values should be set to 
the values of locations 42 and 43 when the menu program is 
loaded (these two locations show the amount of memory 
occupied by a program), the program chained from the sort is 
here called "MENU". For further explanation on program 
chaining see section on menus (p. 129). 



Parameters used: 



MX - number of records which can be sorted in core 

A$(MX+2)- sort table A 



B$(MX) - sort table B 
SKSP - sort key start position 
KLN - sort key length 

IPFILE$ - input file name 
OPFILE$ - output file name 



FILEMERGE 



This program is intended for use with a sorted transaction 
file ("SORT") produced by the file sort program "Filesort". 
The transaction file is merged with the master file 
("MASTER") to create a new master file. The program requires 
a temporary copy of the master file (called "DUMMY"), so 
sufficient disk space should be available for this. Like the 
transaction file the master file has an indeterminate number 
of records, and is terminated by a record consisting of a 
string of four "Z"s. During the merge the number of records 
on both the transaction file and the master file are 
displayed on the screen. Full error checking is incorporated, 
if there is any discrepancy the merge may be aborted prior to 
deletion of the original files. As with Filesort this program 
is intended to be part of a suite of programs each chained to 
a menu; line 1150 performs this chaining back to the program 
"MENU". 
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Parameters used: 

No input parameters are required by this program. 



NOTE: since no records are directly input to the master file, 
the file must be created when the system is first set up. 
This requires a single terminator record ("ZZZZ") to be 
written to the file. The system can now be run and further 
records will be automatically added to the master file. 
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tr'.r ,yc -'» *>'-' i>t SORTED TWF" nfi r, r,- nr - c - 
10W0 REM #-ED IN RflTrucirr WILL BE SOP! 
1050 REM ** EACH np J ' , " MX " RECORDS 
1108 REM *C0p7eD fr ft 2npJ R ^P WILL EE 
1110 REM *THO WOP? F?i r" R -V FILE °N DISK". 
1120 REM *OUTPUT * S^f- USEB F0R 
H30 REM *mhen fiLL PFrnor^ RL ™NRTELV. 
1140 REM *SORTED THE qTPr'2-^ VE £EEN 
115Q REM *FILES RPF fil-i? b ' b ' 0N THE WORK 
1168 REM •St^^rvRftt™ F ° RM THE 

lis l£k:s;^^:,f *="sorteb» 

if-60 REM* OPEN INPUT S,*i***********« 

U8U REM*IN "ft" iLVr, K EVS+TftGS 
1390 REM*END OF>l, p N J?? LE F,JL L OR 

1 520 FOR I = 1 T0 1 fi • --v t •• ^ ' H * ' ; N+2 > = " ZZZZT?^ 

1SS S;K^^ NEXT 



=IR* 



}580 REM*BE SORTED IF °p? ? EC0RDS TO 
159y REM*TftBLE »B» tw .-A Eb THEN COPY 
1600 REM«FIIUE .'fllnpT" : ? EQUE NCE TO 
^1Q REM*EOF THFS PnoM J ^ "*SORT". IF 
1620 REM^TS^^WPUT F ILE IF 

J w? REM*ONCE ELSE MplfP F riT URT USE * 
1*40 REM*FI LES "ftfoR^'l Jf^j™ 
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! £ff\ I FSO= 1 fiNBLEFT* < I R* , 4 > =24*THENLF= 1 4 : Sfl= 1 4 : FL*=OP*+ " , S , U " = GOTO 1710 

\f?h LF=3 = IFS0T/2=IHT<S0T/2>THEHLF=4 

1 gflfl Sfi=LF : I FSGT>2THEN 1 730 

lS 90 F*="fi" : IFS0T=2THENF*="B" 

1 70S FL*=F*+ " SORTFL , SEQ , UR I TE " 

1710 OPENLF , 8 , Sfl > " @ 1 : " +FL* 

1 720 I FST>0THENGOSUB2630 

1730 FOR 1 = 1 TON . iir _ ijT 

1 740 PR I NT#LF , B* < VflL < R I GHT* < fi* < I + 1 > , 3 > > ) ; CHR* t 1 a .> ; : NEXT 

1 7=10 REM*************************** 

17*0 REM* IF SORT=l & EOF THEN END. IF 

1770 REM*NOT EOF THEN SORT NEXT SET 

17S0 REM* OF RECORDS ELSE MERGE FILES 

1 790 REM****************************** 

1 800 I FLEFT* < I R* , 4 > <>24*THENN=8 : GOTO 1 420 

1810 IFLF=14THEN1928 

1 f :20 PR I NT#3 > 24* ; CHR* < 1 3 > i ■ I FST>0THENGOSUB2b3W 

1R3R CL0SE3-- IFST>0THENGOSUB2630 

1 R4fl PR I NT#4 , 24* ; CHR* < 1 3 >i ■ I FST>0THENGOSUB2638 

1R50 CL0SE4: IFST>0THENGOSUB2630 

lRfiR REM*************************** 

1R70 REM* ENTER MERGE S/R TO FORM 

1888 REM* OUTPUT FILE 

1 890 

1 900 GOSUB2740 

1910 GOTO 1970 

1928 .._ 

1930 REM*RLL RECORDS ON OUTPUT FILE 

1948 REM*************************** 

1 9.^,0 PR I NT# 1 4 , 24* ; CHR* < 1 3 > ; : I FST>0THENGOSUB263W 

1 qf.Fi HLOSE 14^1 FST>8THENG0SUB2638 

1970 PRINT'TMWWDWMiBEND OF SORT" 

19k0 PPINT"WWaNO. OF RECORDS SORTED = ";RECs 

1 998 P0KE842 ,10: P0KE043 , 36 : CLR = LOAD " MENU " , 8 

2000 P=l :M=10 

2010 PRINT"*"; 

2020 L=2 

2038 R=N+1 

2048 I FR-L<MTHEN24 1 8 

2058 I=L 

2060 J=R 

2070 K*=H*':.'L;' 

2080 I FK*>=H* < J > THEN2 1 1 

2090 J=J-1 

2100 GOTO2080 

2110 IF,T>ITHEN2140 

2128 H*<I>=K* 

2138 GOTO2270 

2148 fl*<I>=fl*<J> 

2150 1=1+1 

2160 IFH*(I;'>=K*THEN2190 

2170 1=1+1 

2180 G0T02168 

2198 REM 

2280 IF.J>ITHEN2248 

2210 fl*<J>=K* 

2220 I=J 

2230 G0T02270 

2240 fl*'::J>=fi*n> 
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2258 J=,T-1 

2266 GOTO2080 

2270 IFR-KI-LTHEN2340 * 

2280 S<P)=R 

2290 P=P+1 

2300 S<P>=I+1 I 

2310 P=P+1 f 

2320 R=I-1 

2330 GOTO2040 & 

2340 SCP>=I-1 f 

2350 P=P+1 % 

2360 S<P>=L 

2370 P=P+1 

2330 L=I+1 

2390 GOTO2040 

2400 REM STRRIGHT INSERT 

2410 J=L 

2420 J=J+1 

2430 IFJ>RTHEN2520 

2440 K*=A$CJ> 

2450 I=J-1 

2460 I FA* < I > <=K$THEN2580 

2470 fl$(I + l>=fl*a> 

2480 1=1-1 

2490 GOTO2460 

2500 A*<I+1>=K$ 

2510 GOTO2420 

2520 IFP=1THEN2620 

2530 P=P-1 

2540 L=S<P> 

2550 P=P-1 

2560 R=S<P> 

2570 GGTG2040 

2580 REM*************************** 

2590 REM*TABLE "A" SORTED RETURN TO 

2600 REM*nfiIN PATH OF PROGRAM 

26 1 REM*************************** 

2620 RETURN 

2630 I NPUT# 1 O , R 1 $ > R2$ , R3* , R4* 

2640 I F VRL < R i * > =0THENRETURN 

2650 PRINT" 3D ISC ERROR W" 

2660 PRINT" SERROR NO ";R1* 

2670 PR I NT "SERROR MSG" ";R2* 

2680 PRINT" 3PARAMETER 1 ";R3* 

2690 PR I NT "PARAMETER 2 ";R4* 

2700 PR I NT "MM" 

2710 I NPUT " aCONT I NUE ? < V/N > *HI" ; VN* : I FVN*= " V " THENRETURN 

2720 I FYN$<> " N " THEN27 1 8 

2730 END 

2740 REM**************************** 

2750 REM*MERGE RECORDS USING 4 DISC 

2760 REM*FILES <2 IN 2 OUT). ON LAST 

2770 REM*PASS WRITE TO OUTPUT FILE 

2780 REM**************************** 

2790 T 1 $= " SORTFL , S , W " : T2*= " SORTFL , S , R " : NP= I NT < < SO+ 1 ) /2 > 

2300 PRINT"S*5TART OF MERGEMM" 

F3*="C" : F4$="D" = LF=5 • G0T02870 

F3*=WA$ •• WA$=F2* 

LF=5:pRINT"*".: 



2810 F1$="R" 
2820 WA*=F1* 
2825 F2*=F4$ 



F2*="B" 
F1$=F3* 
F4*=WR* 



2830 REM***************************** 
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2840 rem*ofen 2 input files & 1 or 2 

2850 rem*output files 

2360 rem***************************** 

2S70 0PEN3,8,3,F1*+T2*: IFST>0THENG0SUB26>:fi 

28S0 0PEN4 ,8,4, F2*+T2* : I FST>0THENGOSUB268fl 

2830 I FNF- 1 THENF3*=0PF I LE* •' T i *= " , SEQ , WR I TE " 

2900 0PEN5,8,5,F3*+T1*: IFST>0THENGOSUB2630 

2910 IFNF-1THEN2930 

2920 OPENS , 8 , 6 , F4*+T 1 * ■ I FST>OTHENGOSUB2630 

2930 REM******************************* 

2940 REM*READ FILES 3*4 &FORM FILES 

2950 REM*5.fc6 < MERGED) 

2960 REM******************************* 

2970 I F I 3*=Z4*THEN30OO 

2980 INFUT#3, 13* •■ IFST>0THENGOSUB2630 

2990 K3*=M I D* (.1 3* , SKSP , KLN ) 

300O I F I 4*=Z4*THENGOTG3030 

30 1 O I NPUT#4 , I 4* ■ I FST>0THENGOSUB2630 

3020 K4*=MID*<;i4*,SKSP,KLN> 

303O I F I 3*= I 4* AND I 3*=Z4*THENG0T03330 

3O40 IFI3*>I4*THEN3230 

3050 REM**************************** 

306O REM*AS I3*<=14* THEN W/0 13* TO 

307O REM*LAST OUTPUT FILE. IF I3*<LAST 

3O30 REM*OUTPUT RECORD THEN CHANGE 

309O REM*OUTPUT FILES ( CHANGE "LF" 

3 1 00 REM**************************** 

3110 IFLF=6THEN3210 

3120 IFK3*<K5*THEN3160 

3 1 30 PR I NT#5 , I 3* : I FST>0THENGOSUB263O 

3 1 40 K5*=K3* : I NPUT#3 , 1 3* - I FST>0THENGOSUB263O 

3 1 50 K3*=M I D* a 3* , SKSP , KLN > : GOTO303A 

3160 REM** START HEW STRING ON FILE 6** 

3170 LF=6 

3180 PRIHT#6, 13*: IFST>OTHENGOSUE2630 

3 1 90 K6*=K3* : I NPUT#3 , I 3* : I FST>0THENGOSUB263O 

3200 K3*=M I D* (I 3* , SKSP , KLN ) : GOTO3O30 

3210 IFK3*<K6*THENLF=5 : GOT03130 

3 2 2 O G T 3 1 8 

3230 REM**** WRITE 14* TO OUTPUT ** 

3240 IFLF=6THEN3310 

3250 IFK4*:.:K5*THEN32S0 

3260 PRIHT#5, 14*: IFST>0THENG0SUB2630 

o2 1 y K5*=K4* : GOTO30O0 

3230 REM**** SWITCH OUTPUT FILES *** 

3290 LF=6 ■• PR I NT#6 , 1 4* : I FST>0THENG0SUB2630 

330y Kfc.*=K4* : GOTO3OO0 

3318 IFK4*-:K6*THENLF=5:GOTO3260 

3 3 2 y ij T 3 2 9 O 

3330 REM**************************** 

3340 REM*END OF BOTH FILES. SCRATCH 

3350 REM* INPUT FILES & W/0 EOF 

3360 REM*RECORHS ON OUT PUT FILES 

3370 REM**************************** 

3330 CLOSES: IFST>OTHENGOSUB2630 

3390 CL0SE4: IFST>0THENGOSUB263O 

3400 PP I NT# 1 O , " S : " +F 1 *+ " SORTFL . " +F2*+ " SORTFL " : I FST>0THENGOSUB2630 

34 1 O PR I HT#5 , Z4* : I FST>0THENGOSUB2630 

3420 CLOSES: IFST>0THENGOSUB2630 

3430 I FNP= 1 THENRETURN 
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?.446 
3458 
3468 
3478 
S'ERDV, 



PR:INT#6, Z4$ : IFST>0THENGOSUB263& 
CLOSES : IFST>6THENGOSUB2630 
NP=NP-1 
GOTO2S20 
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006 REM ***************************** 

001 REM *PROGRAM TO MERGE R SORTED SEQUENTIAL 

002 REM TRANSACTION FILE WITH A MASTER 

003 REM *DflTfl BASE SEQUENTIAL FILE. ALL DATA 

004 REM *FILES ARE ON DISK DRIVE ONE. THE 

005 REM *PROGRAM PRINTS CONTROL TOTALS OF 

006 REM *RECORD NUMBERS IN BOTH FILES. 
003 REM ***************************** 
020 REM 

036 REM 

040 REM 

100 REM *** OPEN INPUT FILE *** 

102 REM 

1 04 0PEN2 , 8 .. 2 , " 1 = SORTED , SEQ , READ " 

1 06 I FST>0THEN 1 392 

108 REM 

110 REM *** OPEN OLD MASTER FILE *** 

112 REM 

1 1 4 OPENS , 8 , 3 , " 1 •• MASTER , SEQ , READ " 

116 IFST>0THEN1392 

118 REM 

120 REM *** OPEN NEW MASTER FILE ft* 

122 REM 

1 24 0PEN4 , 8 , 4 , " @ 1 • DUMMV , SEQ , WR I TE " 

126 IFST>0THEN1392 

128 REM 

130 REM *** INITIALISE CONTROL TOTS *** 

132 REM 

134 BMB=0 

136 TMB=S 

138 CMB=0 

140 PR I NT "PIASTER FILE UPDATE PROGRAM" 

142 REM 

144 REM *** READ TRANSACTION*** 

146 REM 

148 GOSUB1310 

150 REM 

152 REM *** READ OLD MASTER*** 

154 REM 

156 G0SUB1346 

158 REM 

160 REM *** END OF UPDATE REACHED ? *** 

162 REM 

164 IFLEFT$-;EREC*, 3> = "ZZ2"ANDLEFT*aRECt, 3>="ZZZ"THEN12u6 

166 REM 

168 REM *** COMPARE OLD O TRANS *** 

170 REM 

1 72 I FLEFT* < BREC* , 1 6 > CLEFT* < TREC$ , 1 6 > THEN 1 1 90 

174 REM 

176 REM *** TRANS < OLD - INSERT *** 

178 REM 

ISO PRINT#4,TREC*.iCHR$<13>; 

182 IFST>0THEN1392 

184 CMB=CMB+1 

1 86 GOSUB 131 

188 GOTO 1164 

190 REM 
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1192 REM *** OLD < TRANS - CflRRV FWD *** 

1194 REM 

1196 PRINT#4,BREC*;CHR*a3::'.; 

11 98 IFST>0THEN1392 

1290 CME=CMB+1 

1202 G0SUB1346 

1204 GOTO 1164 

1206 REM 

1208 REM *** END OF UPDATE *## 

1210 REM 

1212 PR I NT#4 , " ZZZZZ2ZZZZZZZZZZZZZZ2 " ; f :HR* < 1 S "- ; 
1214 CL0SE4 

1216 IFST>0THEN1392 

1218 REM 

1220 REM *** DISPLAV CONTROLS *** 

1222 REM 

1224 PRINT '\T1ASTER FILE UPDATE" 

1226 PRINT"WWDLD MASTER FILE RECORDS ";EMB 

1228 PR I NT" *»JrRANSACT I ON REDIRDS '".TMB 

1230 PRINT"MMNEW MASTER FILE RECORDS " i r.ME 

1 232 D I SC=BMB+TMB-CMB 

1 234 I FD I SO0THENPR I NT " AMSURRN I NO RECORD D I Sf:REF ENHVl" ; D I fif: 

1236 REM " " " -- 

1238 REM *** CHECK UPDATE O.K. *** 

1240 REM 

1242 PRINT" IF UPDATE IS fi.K. " 

1244 PR I NT "ENTER C TO CONTINUE " ; 

1 246 GETfl* : I FA*= " " THEN 1 24F 

1248 IFA*="C" THEN 1274 

1250 INPUT "MDO VOU WISH TO CANCEL THE UPDATE *" ; 

1252 IFA*0"V" THEN 1242 

1254 REM 

1256 REM *.** SCRATCH OUTPUT MASTER **# 

1258 REM . ^ 

1260 OPEN 1,8, 15 

1 262 I FST>0THEN 1 392 

1 264 PR I NT# 1 , " S 1 , DUMMV " 

1 266 I FST>OTHEN 1 392 

1268 CLOSE 1 

1 2 70 I FST>0THEN 1 392 

1272 GOTO 1308 

1274 REM 

1276 REM *** SCRATCH INPUT FILES *** 

1278 REM *** RENAME OUTPUT MASTER *** 

1280 REM 

1282 OPEN 1,8, 15 

1284 IFST>0THEN1392 

1 286 PR I NT# 1 , " S 1 : UNSORTED " 

1 288 PR I NT# 1 , " S 1 : SORTED " 

1 290 PR I NT# 1 , " S 1 • MAS TEP " 

1 292 PR I NT# 1 , " R 1 : M ASTER= 1 : Di 1MM V " 

1294 IFST>0THEH1392 

1296 CLOSE 1 

1298 IFST>0THEN1392 

1300 CLOSES 

1302 REM 

1304 REM *** END OF RUN *+:* 

1306 REM 

1 308 P0KE42 , 010- P0KE43 , 36 : CLP : LOAD " R : MENI I " . S 
1310 REM 
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1312 REM *** READ TRANSACTION FILE ### 
1314 REM 

1 3 1 6 I FLEFT* C TREC* , 3 > = " ZZZ " THEN RETURN 

1313 INPUT#2,TREC* 

132U IFLEFT*(TREC$, 3>="ZZZ"THEN1332 

1322 IFST>0THEN1392 
1324 TMB=TME+1 

1323 PRINT ,, SWBWWn , RflHSflCTION RECORDS ";TMB 
1338 RETURN 

1332 REM 

1334 REM *** END OF FILE ENCOUNTERED *** 
133b REM 

1333 CL0SE2 

1340 IFST>0THEN1392 

1342 PRINT"M«WWWWEND OF TRANSACTIONS" 

1344 RETURN 

1346 REM 

1348 REM **# READ OLD MASTER FILE *** 

1350 REM 

1 352 I FLEFT* <; BREC* , 3 ) = " ZZZ " THEN RETURN 

1354 INPUT#3,BREC* 

1356 IFLEFT*<BREC*, 3>="ZZZ"THEN1366 

1358 BMB=BMB+1 

1362 PRINT"aWWW«WWWOLD MASTER FILE RECORDS " ; BME 

1364 RETURN 

1366 REM 

1366 REM *** END OF FILE ENCOUNTERED *** 

1370 REM 

1372 CLOSES 

1374 IFST>0THEN1332 

1376 PRINT"4ftM(!l?M(iIi!ftEND OF OLD MASTER FILE" 

1378 RETURN 

1380 REM 

1382 REM *** FATAL ERROR *** 

1334 REM 

1386 PRINT'^PftMilMillBftftMilMiiMiiIiiftW^ATAL ERROR! " ; MESS$ 
1 338 GET A* ' I FA*= " " THEN 1 333 
1390 STOP 
1392 REM 

1394 REM *** DISC ERROR *** 
1396 REM 
1398 CLOSE 1 
1480 OPEN 1,3, 15 
1 402 I NPUT# 1 , A* , B$ , C* , D* 
1 484 IFA4r= "00"THENRETURN 

1406 PRINT H flC«!M?ftMS«eIi!lBiai!l»ftMiiI(iWariISr: ERRORS " 
1 408 PR I NTfi* .; " " .; E* ; " " , C* ; D* 
1416 GET A*: IFfl*=""THEN1410 
1412 STOP 
READV. 



83 



FAST MACHINE CODE SORT 

This is a package comprising a 6502 machine code routine to 
perform a bubblesort on any specified one dimensional string 
array. The Basic subroutines allow this machine code program 
to be demonstrated on a specific array, these routines can be 
easily adapted to meet the users own requirements. The Basic 
subroutines provided include routines to input an array, sort 
it, add and delete strings, and locate strings using a binary 
chop search strategy. 

The machine code sort searches the list of arrays until an 
array is found whose name matches a name previously stored in 
locations CA and CB. There are various failure exits: array 
not found (1), more than one dimension (2), and too few 
elements to sort (3). Once the named array is found the 
bubble sort commences. The pointers to each adjacent pair of 
strings are extracted and the strings compared. If they are 
in lexically incorrect order then the order of the pointers 
is reversed. r 



m 



0,1 - 1,2 - 2,3 N-1,N 

This is performed up to N times in the inner loop ILOOP. 
every time a swap is made FLAG is set. If at the end of the 
inner loop FLAG is still clear, then the list is fully sorted 
and the routine terminates. FLAG is cleared at the beginning 
ot each of the N iterations around the outer loop OLOOP. This 
n U o 6 ^D 10 k? P • 1S re P eated until the list has been ordered by 
?-i r,^ timeS ' Where there are N elements in the array, or 
until FLAG remains clear. The effect of the inner loop is to 
cause the lexically largest item in the array to move to the 
top of the array. Because of this the number of comparisons 
in the inner loop is reduced by one on each iteration of the 
outer loop. 



OLOOP 
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When each string is being tested with its neighbour the 
corresponding character of each is compared, the first 
character of string one, with the first of string two, the 
second, third and so on. The first non-equal pair defines the 
lexical order. If they are equal, but of unequal length,such 
as, "there" and "therefore", the longer one is taken as 
lexically greater. Any null string (zero length, "") is taken 
as lexically infinite. The result of the sort is to leave the 
lexically smallest in element zero of the array, the non-null 
strings in ascending order; all the remaining elements are 
the null strings. 

A more detailed description of the machine code program: 



1st character of array name in CA, top bit cleared. 
2nd character of array name in CB, top bit set. If array name 
is only 1 character long then CB = 1 28. 
The start of the array list is stored in 127,126, saved in 
BASE 

LOCATE: If the first character of the array name is "$" the 
array list is searched. ERROR=l return (fail) 

MORE A: If CA and CB both equal the array name, the array is 
found, goto AFOUND. 



NEXTA: TEMP is loaded with the offset to next array 
descriptor block, TEMP is added to the current value of BASE, 
so that it points to the next array block. Goto LOCATE for 
next array. 

AFOUND: Check array dimension equals one, if not ERROR = 2 
and return (fail). 

DOSORT: NOOFE is loaded with the number of elements in the 
array. If there are less than two elements then the array is 
unsortable, ERROR=3, return (fail). 

INIT: NOOFE is transfered to NOOFC. 

The outer loop: 

OLOOP: Clear FLAG and COUNT. Decrement NOOFC, search to N-l 
elements. If NOOFC is zero the array is sorted - return 
(success). 

SPAIR: PAIR is set to point to the first byte of the block 
of six that contains the length and string pointers of the 
two strings to be compared. 



' 



. 
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The inner loop: 

ILOOP: LEN1 set to length of first string. STR1 points to 
character in first string. LEN2 set to length of second 
string. STR2 points to character in second string. If LEN2 is 
zero then goto NOSWAP, because second string is greater or 
equal to first. If LEN1 is zero then goto SWAP, 1st string is 
null, second is not, so swap them. 

COM: Compare each character of the two strings in turn, 

using the Y register. If char(strl) < char(str2) then goto 
SWAP. 

NEXTCH: Increment Y register for next pair of characters. If 
it has overflowed then goto NOSWAP. 

CKL2: If Y>LEN1 or Y>LEN2 then the longer is lexically 

greater, test by goto LENEO. Otherwise compare next two 
characters back at COM. 

LENEQ: If LEN1<=LEN2 then goto NOSWAP. 

SWAP: Exchange length and string pointers in descriptor 

block: Length of string one set to LEN2. Pointer to string 
one set to STR2. Length of string two set to LEN1. Pointer to 
string two set to STR1. The exchange flag, FLAG, is set. 

NOSWAP: Add one to COUNT, the number of pairs compared so 
far. 

Ol: If COUNT is not equal to NOOFC the inner loop is 

unfinished, goto PLUS3. If they are equal the inner loop is 
finished. If FLAG is still zero then no swaps were made and 
the sort is finished, return (success). Otherwise goto OLOOP 
to continue sorting. 

PLUS3: Add three to PAIR to compare next pair of strings, 
goto ILOOP. 



The Basic subroutines: 



The Basic subroutines associated with the machine code sort 
program are intended to demonstrate its use. Throughout the 
Basic program all the variables used begin with "Z", anv 
subroutine based around these routines should take this into 
account (Z1,ZB,ZM,ZN,ZP,ZT,ZA$,7I$,ZS$(),ZT$ and ZY$). Only a 
few of these are global, retaining useful values between 
subroutine calls, see below. All the examples assume the 
array to be manipulated is ZS$(); besides this there are only 
three important variables: 

Zl - The base address of the machine code routines, all 

references to the machine code are made relative to this 
location. (480). 
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ZN - The number of elements (0 to ZN) in the default arrav 
ZS$(). (490,510). 

ZS$0- The default array. To change this all references to 
ZS$() must be altered, see above, and statements 530-540 must 
be changed, or subroutine 400 evoked. 

The Program. 

Statement 1 lowers the top of memory to accomodate a 
machine code program at the top of RAM. 

Statement 2 is the start address of the machine code 
program in decimal. 

Statements 3-71 contain the machine code program in 
hexadecimal. 

Statements 200-320 are the machine code loader. 

Statement 480 sets Zl, alter if the machine code is 
relocated. 

Statement 510 dimensions the various arrays that may be 
used. 

Statements 530-540 default the array name "ZS" in 
locations C.A and CB. 

Statements 560-640, each of the demonstration 
subroutines mav be called from a menu option pad, which is 
printed by subroutine 1000. The user types a digit which 
directs the system to one of the routines via a computed goto 
subroutine. 

The option 'menu': 

oDtion 

1 - Print the 'help' catalogue (1000) 

2 - Input strings into the default array (2000) 

3 - Print strings in the default array (3000) 

4 - Change the sorted array name (4000) 

5 - Sort the named arrav, default to ZS$(), (4500) 

6 - \dd a new string to the default arrav (5000) 

7 - Delete a string from the default array (5500) 

8 - Search for named string in default array (6000) 

Mter n--rforming each subroutine call, the user is prompted 
for his next choice. If in doubt "1" should be tvped. 



The subroutines. 



1000 "MS3' 



The 'help' oDtion 'menu', clears the screen and prints the 

option list as previously described. 

2000 "MS4" 

Input strings into the default array- 
ay All the strings in the default array are set to zero 

length (2060-2100). 
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b) A loop is entered (2140-2230), the user enters one string 
at a time (2190), prompted by the array number being filled 
(2180). At any time the user may leave the routine by typing 
a single "*", followed by the return key (2210). If at any 
time the available free memory of the machine falls below 256 
bytes, the user is advised before the string prompt, but no 
further action is taken to protect the program against 
running out of memory (2160-2170). 

c) When the array is full the routine returns (2240). If the 
input was terminated prematurely the last input element is 
tidied (2250) and this routine returns (2270). 

3000 "MS5" 

Print the string in the default array on the PET screen. 

a) A loop (3020-3060) is entered to print each of the array 
strings in turn (3044). If the array entry was empty a blank 
line is not printed (3030). ZM, previously set to zero, is a 
tally of non-null strings that have been printed (3050). 

b) The value of ZM is printed (3070), and the routine returns 
(3080). 

4000 "MS6" 

A subroutine to change the name of the array searched for and 
sorted by the machine code routine, pokes into locations CA 
and CB. 

a) The name of the new array is requested (4010). 

b) Its last character must be "$" for string array (4020), if 
it is not, a message is generated (4040) and a return 
effected (4050). 

c) The first character of the array name is extracted (4080) 
and checked as being alphabetic (4090), if it is not, a 
message is printed (4100) and the code requests the user to 
retype the string at a) (4110). If it is all right, the 
numeric value of the letter is poked into CA (4120). If there 
is no second character in the array name (4130), the routine 
returns, CB having previously been cleared (4060). 

d) The second character is extracted (4150), checked 
(4160-4180)as before, and if alphabetic poked into CB (4190) 
and the routine left (4200). 

4500 "MS7" 

A subroutine to call the machine code bubble sort routine. 

a) The name of the array to be sorted is printed by peeking 
into CA and CB (4520). 

b) The machine code sort routine is called at Zl + 14 (4530) 

c) The ERROR is read by peeking Zl+2 (4540). 

d) An appropriate message is generated if the sort was 
successful (4550), or failed (4560-4590), before the routine 
returns (4600). 
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5000 "M.S8" 

A subroutine to add a string into the default array. 

a) The most probable place for an empty string (particularly 
after sorting) is the last position in the array. This is 
checked (5020). If it is not the user is invited to sort the 
array (5040), but not inside the routine, return at (5050). 
If this routine fails here after sorting, then the array is 

full. 

b) A check is made on free space as in routine 2000 (5070), 
and a warning made if it is low (5080). 

c) The user enters the new string (5100). Which is placed in 
the top array element. 

d) The sort routine is called automatically (5140), before 
returning (5160). 

5500 "MS9" 

A subroutine to delete a string from the default array. 

a) The user is asked to give the element number of the string 
to be erased (5520), if this is out of range (5530) a message 
is printed (5540) and the user may try again (5550). 

b) If the string is already empty (5570), a message is 
printed (5590) and a return made (5600). 

c) The selected string is printed (5620), to remind the user 
what is about to be erased. If the string is to be removed, 
the user types "Y" in response to (5640). 

d) The sort routine is called automatically to tidy up the 
array (5690) before returning (5700-5710). 

6000 "MS10" 

A subroutine to search a sorted array for a target string 
input by the user; prints element number(s) and strings 
matched within the array, if any are found; uses the binary 
chop search strategy. 

a) Sort the array - just to be sure (6020). 

b) User inouts target string (6030). 

c) User selects partial match ("Y") or not ("N") (6040). The 
partial match only characters in strings stored in the array 
to the length of the target string (ZT$). If the target 
string were "THERE", it would find all strings beginning with 
'THERE", for instance "THERE", "THEREBY", "THEREFORE" etc. If 
partial match is not selected the match is for equality only, 
i.e. "THERE" only. In neither case would "THE" be matched. 

d) ZT is set to the bottom of the array - (6070), and ZB to 
the top (6080). 

e) ZM is set to be half way between them, bisecting the array 
(6090). 

i) ZI$ is the ZMth string (6110). 

g) If ZI$ matches the target string, the search succeeds, 

goto step (j) to check forward and backward for other strings 

that match the target. 

h) If ZM equals ZT then the array has been searched but no 
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match has been successful (6170). The routine returns 
printing a failure message (6460-6480). 
i) If the target is greater than the string at the bisect 
point, the bottom of the search space is set to ZM (6190), 
otherwise the top is set to ZM (6200). The search space for 
the routine is successively halved and mav continue from step 
(e) (6210). 

j) Once a string is found, there may be others adjacent to it 
that will also match. Statements (6220-6300) step back 
through the array from ZM until the match fails (6280). ZB 
contains the lowest location that matched. 
k) Similarly statements (6310-6390) check forwards. ZT 
contains the highest location that matched. 
1) The element number and the string contained in that 
element of the array which matched with the target are 
printed in turn (6400-6440) before returning (6450). 
Subroutine 6600 truncates the length of the string in the 
array, if a partial match is wanted, to the length of the 
target string. It must be called before any match is 
attempted (6130,6270 and 6360) 
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S0RT3SRC PAGE 0001 

LINE# LOG CODE LINE 






000 1 


000H 




0002 


0006 




0003 


0006 




0004 


008H 




0005 


0008 




0006 


8808 




0007 


0000 




0088 


888G 




8889 


888t 




8010 


000 £ 




8811 


888E 




0012 


8888 




00 1 3 


8888 




0014 


888E 




0015 


0054 




08 1 6 


8856 




0017 


885c 




00 1 8 


885fl 




00 1 9 


885C 




0020 


805C 




002 1 


005C 




0022 


005C 




0023 


7E2C 




0024 


7E2C 




0025 


7E2C 




0026 


7E2C 




8027 


7E2T 




0028 


7E2E 




0029 


7E2F 




8830 


7E31 




803 1 


7E3:2 




0032 


— 'r~'~ -■( 




0033 


— • i— - ir 
f CO-. 




8034 


7E37 




8035 


7E3F 




8036 


7E3F 




0037 


7E3P 




8633 


7E3F 




8039 


7E3F 




8846 


T'tlr 


48 


664 i 


7E :-t 


38 


6642 


7E3C 


48 


6843 


TE3I 


8fl 


6644 


7E3E 


48 


6845 


7E3F 


HP 2C 7E 


8846 


7E4I 


29 7F 


8647 


r''E44 


3D 2C 7E 


6843 


7E47 




6649 


7E47 




8858 


7E47 




0051 


7E47 


1 flD 2D 7E 


0052 


7E4F 


89 F;0 


0653 


7E4C 


3D 2D 7E 


8054 


7E4F 




0055 


7E4F 





^PROGRAM TO PERFORM LEXICAL SORT 

*ON STRING ARRAV IN PET. 

*CA - CONTAINS FIRST LETTER 

*C£ - SECOND LETTER OF STRING NAME 



SVSTEM CONSTANTS 

ASTART =44 

ZERO PAGE LOCATIONS REQUIRED 

*=S4 
EASE *=*+2 
PAIR *=*+2 
3TR1 *=*+2 
STR2 *=*+2 

.; PROGRAM AND DATA AT TOP OF MEMORV 

*=323O0 

; ORDINARY VARIABLES AND STORAGE 



CA 


*=*+! 


CB 


*=#+ 1 


ERROR 


*=*+i 


NOOFE 


*=*+2 


NOOFC 


*=*+2 


LEN1 


*=*+ 1 


LEN2 


#=#+1 


COUNT 


*=*+2 


TEMP 


*=*+2 


FLAG 


*=*+l 


': THE 


CODE 


, CLEAR TOP BIT OF CA 




PHA 




TV A 




PHA 




TKA 




PHA 




LDA CA 




AND #£01111111 




STA CA 



;SET TOP BIT OF CB 

LDA CB 

OR A #'.' 1 8088000 

STA CB 

i CLEAR ERROR FLAG 
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S0RT3SRC PAGE 0002 

LINE# lOC CODE LINE 



8056 


7E4F 






_; 




8057 


7E4F 


A9 00 






LDA #0 


0058 


7E51 


8D 2E 


7E 




STA ERROR 


0059 


7E54 










0060 


7E54 






; SEARC 


H DOWN ARRRV NAME LIST 


0061 


7E54 






.; load 


EASE WITH START OF ARRAVS 


0062 


7E54 










0063 


7E54 


A5 2C 






LDA ASTART 


0064 


7E56 


85 54 






STA EASE 


0065 


7E58 


05 2D 






LDA ASTART+1 


ki@66 


7E5A 


85 55 






STA EASE+1 


0067 


7E5C 






J 




0068 


7E5C 






; LOCATE ARRAV NAMED IN Cfl & CB 


0069 


7E5C 






j 




0070 


7E5C 


m 00 




LOCATE 


LDV #0 


0071 


7E5E 


El 54 






LDA ';EASE>,V 


0072 


7E60 


C9 24 






CMP #36 .;END OF ARRAV 


0073 


7E62 


D0 08 






ENE MOREA ; NO 


0074 


7E64 






', 




0075 


7E64 






,' ERROR 


1 - ARRAV NOT FOUND 


0076 


7E64 






; 




0077 


7E64 


A9 01 






LDA #1 


0078 


7E66 


3D 2E 


7E 




STA ERROR 


0079 


7E69 


4C AA 


7F 




JMP RTN 


0080 


7E6C 






; 




0081 


7E6C 






; CHECK 


THIS ARRAV NAME 


0082 


7E6C 






; AGAIN 


3T Cfl & CB 


0083 


7E6C 






I 




0084 


7E6C 


CD 2C 


7E 


MOREA 


CMP Cfl ;1ST CHAR 


0085 


7E6F 


DO 08 






ENE NEKTA 


0086 


7E71 


C8 






INV ;NEXT CHAR 


0087 


7E72 


El 54 






LDA <EASE.':',V 


0088 


7E74 


CD 2D 


7E 




CMP CB 


0089 


7E77 


FO IE 






EEQ AFOUND J THIS ARRAV 


0090 


7E79 






; 




0091 


7E79 






; CHECK 


NEXT ARRAV IN TABLE, 


0092 


7E79 






, STORE 


RELATIVE OFFSET IN TEMP 


0093 


7E79 






; 




0094 


7E79 


fl0 02 




NEKTA 


LDV #2 


0095 


7E7B 


El 54 






LDA (BASE),'!' 


QQ96 


7E7D 


8D 37 


7E 




STA TEMP 


0097 


7E80 


C"8 






INV 


0098 


7E81 


El 54 






lea <:base::',v 


0099 


7E83 


8D 38 


7E 




STA TEMP+1 


0100 


7E86 










0101 


7E86 






,ADD RELATIVE OFFSET TO EA:-;F 


0102 


7E86 










0103 


7E86 


18 






CLC 


0104 


i tor 


A5 54 






LDA EASE 


0105 


7E89 


6D 37 


7E 




ADC TEMP 


0106 


7E8C 


85 54 






STA BASE 


0107 


7E8E 


fl5 55 






LDA EASE+1 


0108 


7E90 


6D 38 


7E 




ADC TEMP+1 


0109 


7E93 


85 55 






STA BASE+1 


0110 


7E95 






.» 
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S0RT3SRC PAGE 0693 

LINE* LOG CODE LINE 





0. 





































































O 





































11 

12 
13 
14 
15 
16 
17 
18 
13 
20 
21 



24 

■-iC 

el-- 1 

2b 



30 

31 



34 

•-.cr 

3 b 

■Z't 



40 
41 
42 
43 
44 
45 
46 
47 

.■i i- 

HO 

49 
58 
51 

cr--. 
cr -. 

54 

crcr 
•-' -J 

56 

cr.—? 

err. 
•-'O 

59 
60 
61 
62 
63 
64 



1 b5 



7E95 
7E95 
7E95 
7E37 
7E97 
7E97 
7E97 
7E97 
7E99 
7E9B 
7E9D 
7E9F 
7E9F 
7E9F 
7E9F 
7EA1 
7EA4 
7EA7 
7EA7 
7EA7 
7EA7 
7EA7 
7EA9 
7EAE 
7EflE 
7EAF 
7EE1 
7EE4 
7EE4 
7EE4 
7EE4 
7EE4 
7EE7 
7EE9 
7EBC 
7EBE 
7EC0 
7EC0 
7EC0 
7EC0 
7EC2 
7EC5 
7ECS 
7ECS 
7ECS 

r cl-o 

7ECE 
7ECE 
7ED1 
7ED4 
7ED4 
7ED4 
7ED4 
7ED4 
7ED4 



yu 



A0 04 

El 54 
C9 01 
F0 08 



A9 02 
8D 2E 7E 
4C AA 7F 



H0 05 
El 54 
3D 30 7E 
C8 

El 54 
8D 2F 7E 



RE 30 7E 
D0 0F 
HH 2F 7E 
C9 02 
E0 08 



SD 2E 7E 
4C HH 7F 



AD 2F 7E 
Sli 31 7E 



HE 



30 7E 
32 7E 



: NEXT RRRflV 

BCC LOCHTE 

'; NAMED RRRflV FOUND 

; CHECK ONLV ONE DIMENSION 

AFOUND LDV #4 

LDR '::EASE>,V 
CMP #1 
BEQ DOSORT 

; ERROR 2 - INCORRECT DIMENSION 

LDR #2 
STA ERROR 
,TMP RTN 



DO BUBBLE SORT ON ARRRV 

SAVE NUMBER OF ELEMENTS IN NOOFE 



DOSORT LDV #5 

LDA '::EASE>,V 
STA NOOFE+1 
INV 

LDA c:base>,v 

STA NOOFE 



CHECK THERE ARE 2 OR MORE 
ELEMENTS IN ORDER 



Hy wo 



LDX NOOFE+1 
ENE IN IT 
LDA NOOFE 
CMP #2 
ECS INIT 



.: ERROR 3 - TOO FEW ELEMENTS 

LDR #3 
STfi ERROR 
JMP RTN 

SET UP SORT PARAMETERS 

INIT LDA NOOFE 
STfi NOOFC 
LDR NOOFE+1 
STfi NOOFC+1 

; OUTER SORT LOOP 
.;I = 1 TO NOOFE- 1 
,CLERR TO SWAP FLAGS 

OLOOP LDA #0 



;MORE THAN 255 
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S0RT3SRC PAGE 0004 

LINE* LOG CODE LI HE 



016b 
0167 
1 68 
1 69 

0170 

0171 
0172 
0173 
0174 
0175 
31 76 
0177 
0178 
0179 

0180 

0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
1 89 

0190 

0191 
0192 
0193 
0194 
0195 
1 96 
0197 
0198 
0199 

0200 
0201 

0202 
0203 
©204 
0205 
0206 
0207 
0208 
0209 
02 1 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
6220 



7ED6 
7ED9 
7ED9 
7ED9 
7ED9 
7EDC 
7EDF 
7EDF 
7EDF 
7EDF 
7EDF 
7EE0 
7EE3 
7EE5 
7EE8 
7EEB 
7EED 
7EF0 
7EF0 
7EF0 
7EF0 
7EF3 
7EF5 
7EF3 
7EFA 
7EFC 
7EFC 
7EFC 
7EFG 
7EFF 
7EFF 
7EFF 
7EFF 
7EFF 



7F02 
7F04 
7F06 
7F03 
7F0H 
7F0C 
7F0C 
7F0C 
7F0G 
7F0E 
7F10 
7F13 
7F14 
7F16 
7F18 
7F19 
7F1E 
7F1D 
7F1E 
7F20 



3D 39 7E 



3D 35 7E 
3D 36 7E 



AD 31 7E 
E9 01 
8D 31 7E 
HD 32 7E 
E9 01 
yD 32 7E 



HE 32 7E 
D0 UH 
HD 31 7E 
C9 00 
D0 03 



4C AA 7F 



18 

A5 54 
63 07 
85 56 
A5 55 
69 fifi 




STh FLhb 

CLEAR NO OF TESTS CO.JNTER 

STH COUNT 
STH GOUNT+1 

SUBTRACT ONE FROM r;OOFC 

NO OF COMPARISONS a LESS EACH TIME 

SEC 

LDA NOOFC 

SEC #1 

STA NOOFC 

LDA NOOFC+1 

SEC #1 

STA NOOFC+1 

t 

,'ALL DONE WHEN NOOFC = 

LDX NOOFC+1 
ENE SPAIR 
LDA NOOFC 
CMP #0 
ENE SPAIR 

;SORT FINISHED 

JMP RTH 

■START OF STRING POINTERS 
,PAIR= EASE+7 

SPAIR CLC 

LDA EASE 
ADC #7 
STA PAIR 
LDA BASE+1 
ADC #0 
STA PAIR+1 

..INNER LOOP - SUCCESSIVE COMPARISONS 



A0 00 I LOOP LEV #0 

El 56 LDA <PAIR>,V 

3D 33 7E STA LEN1 

C3 INV 

El 56 LDA (PAIR>,V 

85 58 STA STR1 

C8 INV 

El 56 LEA <.PAIR>,V 

85 59 STA STR1+1 

C8 INV 

El 56 LDA (PAIR>,V 

8D 34 7E STA LEN2 



% 



S0RT3SRC PAGE 0005 

LINE# LOC CODE LINE 



0221 


7F23 


C8 






INV 


0222 


7F24 


El 56 






LDA .::PAIR::',V 


0223 


7F26 


85 5fl 






STA STR2 


0224 


7F28 


C8 






INV 


0225 


7F29 


El 56 






LDA <PAIR::',V 


0226 


7F2E 


85 5E 






STA STR2+1 


0227 


7F2D 






i 




0228 


7F2D 






; COMPARE TWO ADJACENT STRINGS 


0229 


7F2D 






; POINTED AT BV STR1 AND STR2 


0230 


7F2D 






.; IF LEN <STR2;'=0 THEN NOSWAP 


0231 


7F2D 






.; 




0232 


7F2D 


HE 34 


7E 




LDK LEN2 


0233 


7F30 


F0 58 






EEQ NOSWflP 


0234 


7F32 






; 




0235 


7F32 






; OTHERWISE IF LENGTH <STR1>=0 


0236 


7F32 






.;THEN : 


SWAP 


0237 


7F32 






,* 




0238 


7F32 


HE 33 


7E 




LDX LEN1 


0239 


7F35 


F0 2D 






EEQ SWAP 


0240 


7F37 






.; 




0241 


i r -2> i 






; CHECK 


EACH CHAR IN TURN 


0242 


i r c> r 






.; FIRST 


NON EQUAL PAIR 


0243 


7F37 






.; DEFINES LEXICAL ORDER 


0244 


7F37 






.; 




0245 


7F37 


H0 00 






LDV #0 


0246 


7F39 


El 58 




COM 


LDA <STR1>,V 


0247 


7F3E 


Dl 5 A 






CMP <STR2>,V 


0248 


7F3D 


F0 05 






EEQ NEXTCH .; EQUAL - NEXT CHAR 


0249 


7F3F 


90 49 






BCC NOSWAP :STR1<:STR2 


0250 


7F41 


4C 64 


7F 




JMP SWAP ;STR1>STR2 


0251 


7F44 


C8 




nextch 


INV .NEXT 2 CHARS 


0252 


7F45 


F0 43 






EEQ NOSWAP ;255 CHARS EQUAL 


0253 


7F47 


CC 33 


7E 




CPV LEN1 ;END OF STRING? 


0254 


7F4H 


90 04 






BCC CKL2 ;NO 


0255 


7F4C 


F0 09 






EEQ LENEQ 


0256 


7F4E 


EO 07 






ECS LENEQ 


0257 


7F50 


CC 34 


7E 


CKL2 


CPV LEN2 


0258 


7F53 


90 E4 






BCC COM 


0259 


7F55 


F0 00 






BEQ LENEQ 


0260 


7F57 






; 




0261 


7F57 






, CHARS 


EQUAL TO LEN1 OR LEN2 


0262 


7F57 






; LONGER STRING IS LEXICAL GREATER 


0263 


7F57 






.; 




0264 


7F57 


HD 33 


7E 


LENEQ 


LDA LEN1 


0265 


7F5A 


CD 34 


7E 




CMP LEN2 


0266 


7F5D 


F0 2E 






EEQ NOSWAP ;EXACTLV EQUAL 


0267 


7F5F 


90 29 






BCC NOSWAP .iSTRl SHORTER 


0268 


7F61 


4C 64 


7F 




JMP SWAP 


0269 


7F64 






i 




0270 


7F64 






.; REVER 


SE ORDER OF STRINGS BV 


0271 


7F64 






.; SWAPPING POINTERS ROUND 


0272 


7F64 






} 




0273 


7F64 


H0 00 




SWAP 


LDV #9 


0274 


7F66 


AD 34 


7E 




LDA LEN2 


0275 


7F69 


91 56 






STA CPAIR), 1 ! 1 
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iURTSSRC PAGE 0806 

LINE# LOG CODE LINE 



S276 

8277 

82 78 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 
0301 

0382 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

8310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

8323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 



7F6B 

7F6C 

7F6E 

7F70 

7F71 

7F73 

7F75 

7F76 

7F79 

7F7B 

7F7C 

7F7E 

7F80 

7F81 

7Ffco' 

7F85 

7PC.C 
i r o-_i 

7COC- 
i rO-J 

7COC 

i roj 

i'' r y i' 

7F8A 

7F8A 

7F8A 

7F8fl 

7F8B 

7F8F 

7F92 

7F92 

7F92 

7F92 

7F95 

7F98 

7F9A 

7F9D 

7FA6 

7FA2 

7FA2 

7FA2 

7FA2 

7FA2 

7FA5 

7FA7 

7Fflfl 

7FflE 

7FfiC 

7FAD 

7FAE 

7FAF 

7FB8 

7FB0 

7FB0 

7FB0 

7FB0 

7FB1 

7FB3 



C8 
A5 5A 



56 



5B 
56 



91 
C8 
A5 
91 
C8 

flD 33 
91 56 
C8 

fl5 58 
91 56 
C8 

fi5 59 
91 56 



ftS 01 
SB 39 7E 



EE 35 7E 
B0 03 
EE 36 7E 



7E 



ad :: 

CD 31 7E 
B0 16 
flD 36 7E 
CD 32 7E 
DG 0E 



RE 39 7E 

F0 03 

4C D4 7E 

68 

flfl 

68 

FiS 

68 

60 



INV 




LDR 


STR2 


STfl 


<PflIR>,V 


INV 




LDR 


STR2+1 


STfl 


';F'flIR>,V 


INV 




LDR 


LEN1 


STfl 


<:.'PflIR},V 


INV 




LDfl 


STRl 


STfl 


CPRIR>,V 


INV 




LDfl 


STR1+1 


STfl 


<PflIR>,V 



.■SET SWAP FLAG 

LDfl #1 
STfl FLAG 

.■'ADD ONE TO COUNT 

NOSWAP INC COUNT 
BNE 01 
INC COUNT+1 

; CHECK IF COUNT=NOOFC 

01 LDA COUNT 
CMP NOOFC 
BNE PLUS3 
LDA COUNT+1 
CMP NOOFC+1 
BNE PLUS3 

INNER LOOP FINISHED 

IF NO SWAPS THEN ALL SORTED 



LDX FLAG 
BEQ RTN 
•JMP OLOOP 
RTN PLA 
TRX 
PLA 
TRV 
PLA 
RTS 

ADD 3 TO PAIR FOR NEXT TWO 
STRINGS IN INNER LOOP 



18 

fl5 56 
69 03 



PLUS3 CLC 

LDfl PAIR 
ADC #3 
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S0RT3SRC PAGE 00@T 

LINE# LOG CODE 



LINE 



0331 7FB5 85 56 

0332 7FB7 A5 57 

0333 7FE9 69 0O 

0334 7FEE 85 57 

0335 7FED 4C OC 7F 

0336 7FC0 



STfl 
LEA 
ABC 
STfl 
JMP 
. END 



PAIR 
PflIR+1 

#0 

PflIR+1 
I LOOP 



ERRORS = 000O 



SYMBOL TABLE 



SYMBOL 


VALUE 














AFOUND 


7E97 


ASTART 


002C 


EASE 


0054 


CA 


7E2C 


CE 


7E2D 


CKL2 


7F50 


COM 


7F39 


COUNT 


7E35 


DOSURT 


7EA7 


ERROR 


7E2E 


FLAG 


7E39 


I LOOP 


7F0C 


INIT 


7EC8 


LEN1 


7E33 


LEN2 


7E34 


LENEQ 


7F57 


LOCATE 


7E5C 


MOREfl 


7E6C 


ne*ta 


7E79 


HEXTCH 


7F44 


NOOFC 


7E31 


HOOFE 


7E2F 


NOSWAP 


7F8A 


01 


7F92 


OLOOP 


7ED4 


PAIR 


U056 


PLUS3 


7FB0 


RTN 


7FAA 


SPAIR 


7EFF 


STR1 


O058 


STR2 


005A 


SWAP 


7F64 


TEMP 


7E37 















hi 



END OF ASSEMBLY 
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1 REM ****************************** 

2 REM *BASIC LOADER FOR MRCHIHE CODE 

3 REM *SORT PROGRAM. LOADS INTO MEMORV 

4 REM *FROM 32314 UP. TOP OF MEMORV 

5 REM *IS PROTECTED (.HUE 18>. 

9 REM ****************************** 
i O P0KE52 .. 06 : P0KE53 , 1 20 

20 DATA32314 

2 1 D AT A48 .■ 98 , 48 , 8A , 48 

22 DATAAD , 2C , 7E , 29 , 7F .. 8D , 2C .. 7E 
24 DflTflflD , 2D .. 7E , 09 , SO .. 8D .. 2D .- 7E 
26 DATAA9 , OO , 8D , 2E , 7E 

28 D AT AA5 , 2C , 85 , 54 , A5 , 2D , 85 , 55 

30 DflTflflO , OO , E 1 , 54 , C9 , 24 , DO , OS 

32 DATAA9 , 1 , 8D , 2E , 7E , 4C , AA , 7F 

34 DAT ACD , 2C , 7E , DO , OS , C8 , E 1 , 54 , CD , 2D , 7E , F8 , 1 E 

36 D AT A AO .. 82 .-El.. 54 , 8D .. 37 .. 7E .. C8 , E 1 .. 54 .. 3D .. 38 , 7E 

38 DATA 1 8 , A5 , 54 , 6D , 37 , 7E , 85 , 54 , A5 , 55 , 6D , 38 , 7E , 85 , 55 

40 DATA90.. C5 

42 D AT AA0 , 84 , B 1 , 54 , C9 , O 1 , FO , OS 

44 D ATAA9 , 02 , 8D , 2E , 7E , 4C , A A , 7F 

46 DATAAO , 85 , E 1 , 54 , 8D , 30 , 7E , C8 , B 1 , 54 , SD , 2F , 7E 

48 D AT AAE , 30 , 7E , DO , OF , AD , 2F , 7E , C9 , 02 , EO , OS 

50 D AT A A9 , 03 .• 8D , 2E , 7E , 4C , A A , 7F 

52 D AT AAD , 2F , 7E , 3D , 3 1 , 7E , AD , 30 , 7E , 8D , 32 , 7E 

54 DAT A A9 , OO , 8D , 39 , 7E 

56 D ATA8D , 35 , 7E , 8D , 36 , 7E 

58 DAT ASS , AD , 3 1 , 7E , E9 , 8 1 , SD , 3.1 , 7E , AD , 32 , 7E , E9 , OO .• 3D , 32 , 7E 

60 DAT AAE , 32 , 7E .. DO , 8 A , AD , 3 1 , 7E , C9 , OO , DO .- 03 

62 BATA4CAA. 7F 

64 DATA 1 8 .. A5 .. 54 , 69 , 07 .. 85 .. 56 .. A5 , 55 .. 69 .. OO .■ 85 .■ 57 

66 DATAAO , OO , E 1 , 56 , 8D , 33 , 7E , C8 , B 1 .. 56 , 85 , 58 , C8 , E 1 , 56 , 85 .- 59 , C8 

68 D AT AB 1 , 56 , 8D , 34 , 7E , C8 , B 1 , 56 , 85 , 5 A , C8 , B 1 , 56 , 85 , 5B 

70 DATAAE , 34 , 7E , FO , 58 

72 DATAAE , 33 , 7E , FO , 2D 

74 DATAAO , OO , B 1 .. 58 .. D 1 .. 5A , FO , 05 .. 98 .■ 49 , 4C .. 64 .. 7F .. C8 

76 DAT AFO , 43 , CC .• 33 , 7E .. 90 .. 04 .. FO .. 09 .. BO , 07 .. CC .. 34 .. 7E .. 90 .. E4 .. FO .. 0O 

78 DATAAD , 33 , 7E , CD , 34 , 7E , FO , 2E , 90 , 29 , 4C , 64 , 7F 

80 DATAAO .. OO .. AD , 34 , 7E .. 9 1 .. 56 .. C8 .. A5 .. 5A .. 9 1 .. 56 .. CS .. A5 .. 5E .. 9 1 .■ 56 .. C8 

82 DATAAD .. 33 .. 7E .. 9 1 .. 56 .. CS .. A5 .. 58 ..91.. 56 .. C8 , A5 .. 59 .. 9 1 .. 56 

84 DATAA9 .. 1 , S'D .. 39 , 7E 



86 DATAEE, 
88 DATAAD. 
90 DATAAE, 



35,7E,D0,O3,EE,36,7E 

35 , 7E , CD , 3 1 , 7E , DO , 1 6 , AD , 36 , 7E , CD , 32 , 7E , DO , OE 

39 , 7E , FO , 03 , 4C , D4 , 7E , 68 .- AA , 68 , AS , 68 , 68 

92 DATA 1 8 , A5 .. 56 , 69 , 83 , 85 , 56 , A5 , 57 , 69 , 88 , 85 , 57 , 4C , 8C , 7F 

94 DATA* 

288 READL 

218 READ A* 

220 C=LEN<A$> 

230 IFA$="*"THEN40O 

240 IFC-:iORC>2THEH320 

250 A=RSC<A$::'-4S 

260 B= flSC ( R I GHT* < A* , 1 ) > -48 

270 H=E+7* «:' B>9 > - < C=2 > * < 1 6* ( A+7* •; A>9 > > > 

280 IFH<0ORN>255THEH32O 

290 POKEL..N 

3O0 L=L+1 

310 G0T0218 

328 PRINT"BVTE"L"=C"A*"] ???" 
RE ADV. 
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490 REM ******************************* 
410 REM *PROGRfiM TO DEMONSTRATE SORT/SEARCH 
420 REM * ADD/DELETE ON STRING ARRAVS 
430 REM *DEMONSTRATION ARRAV IS ZS*0 
440 REM ******************************* 
450 REM 
460 REM 

470 REM **BASE ADDRESS OF MACHINE CODE** 
4S0 Z 1 =32300 4 ' ^ " r ''' ° A 
490 INPUT "HOW MANY ELEMENTS" ; ZN 
500 REM **RESERVE ARRAV SPACE** 
510 DIM ZQ*<1),ZP*<1>,ZS*<ZN> 
520 REM **DEFAULT ARRAV NAME** 
530 POKEZl,ASC<"Z"> 
540 POKEZl+l,flSCC"S"> 
550 REM **PRINT HELP** 
560 GOSUE 1 000 
570 INPUT"OPTION",ZO 
580 IFZOMTHEN610 
590 ONZOGOSUE 1 000 .. 2000 , 3000 .. 4900 
600 GOTO570 
610 IFZO>STHEN640 

620 UNZO-4GOSUB4500 .. 5000 .. 5500 .. 6000 
630 GOTO570 
640 PRINT"?????" 
650 G0T0570 
READV. 



1000 REM 

1010 REM *ROUTINE TO PRINT MENU ^ 

1020 REM *OF FUNCTIONS IN PACKAGE £ 

1030 REM *ON SCREEN. 

1040 REM ********************** 

1050 PRIHT'TMJPTION" 

I860 PRINT"1 -HELP" 

1070 PRINT" 2- INPUT" 

1088 PRINT"3-PRINT" 

1890 PRINT "4-NAME ARRAV" 

1180 FRINT"5-SORT" 

1118 PRINT"6-ADD STRING" 

1120 PRINT"7-DELETE STRING" 

1130 PRINT"8-SEARCH" 

1140 RETURN 



REA 



J-i T 
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2086 REM **************************** 

2010 REM *SUBROUTINE TO INPUT STRING INTO 

2020 REM *BASIC ARRAY FROM KEYBOARD 

2030 REM *RECODE FOR DIFFERENT DEVIrES 

2O40 REM *DISK, TAPE, IEEE ETf: 

2050 REM *STRIHGS INTO ZS$<fi TG ^N . 

2060 REM **************************** 

2070 REM 

2030 REM 

2090 PRINT: PRINT 

2100 REM **CLEAR ALL STRINGS** 

2110 FORZI=0TOZN 

2120 ZS$'::ZI>="" 

2130 REM 

2140 NEKTZI 

2150 PRINT" INPUT ONE STRING AT A TIME" 

2160 PRINT"TYPE •-*••• + RETURN TO TERMINATE" 

2l7fci PRINT 

2180 FORZI=OTOZN 

2190 REM **CHECK FREE SPACE AVAILABLE** 

2200 IF FRE<0>>256 THEN 2220 

2210 PR I NT" WARNING - ONLV " ; FRE-'O '• ; "BYTES IFFTi 

2220 PR I NT "STRING ".Z I 

2230 INPUTZS*-:ZI> 
2240 REM 

2250 IFZS$<ZI>="*"THEN 22*fi 
2260 REM 
2270 NEXTZI 
2280 RETURN 
2290 ZS$<Zi:> = "" 
2300 REM 
2310 RETURN 
RE ADV. 



= c:«y0 REM ****************************** 
c/j oO01 REM *SUBROUTINE TO PRINT ZS* ON Sf.PEEN 

JWU9 REM ****************************** ■ 

3010 ZM=0 

3020 F0RZI=8T0ZN 

3030 IFZS*';ZI> = ""THEN SfiSfl 

3048 REM 

3050 PRINTZS*<Zn 

3060 REM 

3070 ZM=ZM+1 

3080 NEtfTZI 

3090 PR I NT "NUMBER OF ENTRIES Is " ; 7M 

3100 RETURN " " 

RE ADV. 
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4000 REM **************************** 

4001 REM *SUBROUTINE TO NAME flRRflV TO 

4002 REM *BE SORTED. 

4009 REM **************************** 

4010 INPUT "flRRflV NflME";ZT* 

4020 REM **TEST TO CHECK STRING HRPflV** 
4030 I F R I GHT* < ZT* , 1 > = » * « THEN4060 
4040 PRINT"STRING flRRflV ONLV" 
4050 RETURN 
4060 POKE Zl+1,0 
4070 REM **1ST CHARACTER** 
40SO Zfi*=LEFT*<ZT* . 1 > 

409O IFZA*>="A" AND Zfl*<="Z"THEN 4120 
4100 PR I NT "ALPHABETIC NAME ONLV - 1ST CHAR" 
4110 GOTO4010 
4120 POKE Z1,ASC<ZA*> 
4130 IFLEN<:.ZT*.K"=2 THEN RETURN 
4140 REM **2Nn CHARACTER, IF ANV** 
4 1 50 Zfl*=M I D$ < ZT* , 2 , 1 > 

4160 IF Zfl*>="fl" AND Zfl* <="Z" THEN 419fl 
4170 PR I NT "ALPHABETIC NAME ONLV - 2ND CHAR" 
4 ISO GOTO401O 
4190 POKE Zl + l.-flSC'CZA*:- 
42O0 RETURN 
REflDV. 
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4500 REM 

4501 REM *SIJBROiJTINE TO SORT NAMED ARPAV 

4502 REM *USING MACHINE CODE ROUTINE ^ 

4509 REM ****************************** 

4510 REM 

4520 PRINT "SORTING flRRflV ' " ; CHR*<PEEK<21 ':■ J ;0HR$<PEEK<:Z1 + 1 v. ; »* 

4530 SVs ':' Z 1 + 1 4 ':• ' ' ' *' ' ' 

4540 ZI=PEEKCZl+2> 

4550 I FZ I =6 THEN PR I NT " SORTED . K . " 

4.j60 IFZI = 1 THEN PR I NT "flRRflV NOT FOUND " 

4570 IF£l=2 THEN PR I NT "NOT ONE DIMENSION flRRflV" 

4580 IF^I = 3 THEN PR I NT "TOO FEW ELEMENT:-;" 

4590 IFZIX THEN PRINT"UNSPECIFIED SORT ERROR i" 

4600 RETURN 
REflDV. 
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5yyy rem **************************** 
5601 REM *ABB A STRING INTO ?*$ 
5002 REM *CHECK LOCATION FREE~ 

Wl« REM **************************** 

5020 IF ZS*CZN>=""THEN Sflfifi 
5030 REM 

5040 PR I NT "HO SPACE - TPV WT" 
5050 RETURN 

5060 REM **CHECK SUFFICIEN SPflf:E FREE** 
5W70 IF FRE<0»255 THEN F,im th ** 

5080 PRINT"OHLV ";FRE<0> ; "BVTES LFFTi" 
5090 REM **GET STRING ' TO ' ADD** 
5100 PRINT" INPUT STPINfi" 
5110 INPUT ZS$<ZW 
5120 REM 

5130 REM **SORT** 
5140 SVS<Z1+14> 
5150 PRINT"G.K. " 
5160 RETURN 
REfiU'' 
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55WW REM ************************** 
5501 REM *DELETE STRING IN zS 
* 55W2 REM *REQUEST STRING NUMBER 

III !m ************************** 

5520 INPUT "STRING NUMBER" ;?i 
5530 IFZI>=0 AND ZK=ZN THEN 55^ 
5540 PRINTZI.;"OUT n F RANGE" 
5550 G0T0552R 

SS2 RE ^** D 2 NT - DELE TE NULL STRINGS** 
^'-? if. ^*<ZI.k>"" THEN 5620 
55aw REM 

5590 PRINT-NULL STRING ALPEADV" 
5600 RETURN 

5620 PR I NT " STR I NG " ; Z I ; " I *. ' " ■ ?c* ,- - T -, . ., 
5630 REM " i -- 4 ^ 1 -' 

5640 I NPUT " DELETE < V/N > " ; 7 v* 

ill zs*tl™-? v *' 1>0 " vi,?HEN RETURN 

5670 REM 

5688 REM **AND SORT** 
5690 SVS':'Z1 + 14j 
5700 PR I NT "O.K. " 
5710 RETURN 
READV. 
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6080 REM ***************************** 

6001 REM *SUBROUTINE TO BINARY SEARCH 

6002 REM *ARRAY ZS*0. 

6009 REM ***************************** 

6010 REM **SORT TO EE SURE** 
6 020 S VS < Z 1 + 1 4 ) 

6030 I NPUT " TARGET STR I NG " ; ZT* 

6040 I NPUT "PARTIAL MATCH <Y/N} "; ZV* 

6050 ZP=1 

60€S IF LEFT*':ZV*,1> = "V" THEN ZF-0 

fifiZfi ZT=0 

6OS0 ZB=ZN+1 

6090 ZM=ZT+INT<-::ZB-ZT>/2> 

6110 ZI*=ZS*<ZM) 

6120 REM 

6 1 30 GOSUB6600 

6140 REM **THE COMPARISONS** 

6150 IF ZI*=ZT* THEN 6220 

6160 REM **STRING HOT FOUND** 

6170 IF ZT=ZM THEN6460 

61S0 REM **CHANGE POINTERS** 

6190 IF ZI$="" OR ZT$>ZI* THEN ZT=ZM : GOTO 6Q90 

6200 ZB=ZM 

6210 GOTOfc.090 

6220 REM **FOUNB - CHECK BACK FOR OTHERS** 

6230 ZB=ZM 

6240 IFZE-KO THEN 6310 

6250 ZIf=ZS*'::ZB-l;' 

6260 REM 

6270 GOSUB6600 

62S0 IFZI*OZT* THEN 6310 

6290 ZB=ZE-1 

6300 G0T06240 

6310 REM **CHECK FORWARD FOR OTHERS** 

6320 ZT=ZM 

6330 IFZT+1>ZN THEN640O 

6340 ZU=ZS*(ZT+1> 

6350 REM 

6360 GOSUE660O 

6370 IFZI*OZT* THEN 64O0 

6380 ZT=ZT+1 

63y0 GOTu 6330 

64U0 REM **PRINT ALL MATCHED STRINGS** 

6410 FORZI=ZE TO ZT 

642U PRINTZI; " ■-" ;ZS*-:'Zn 

6430 REM 

6440 NEXT ZI 

6450 RETURN 

6460 REM **STRING NOT FOUND** 

6470 PR I NT "STRING NOT FOUND" 

64S0 RETURN 

6609 REM **STRING MANIPULATION** 

6610 IFZP=0RND<LEN<ZI*>>LEN<ZT*>>THENZI*=LEFT*<ZI*,LEN<ZT*)> 
6620 RETURN 

READY. 
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SORTING WITH A LINKED LIST 



A -i inl ? d J iS ' is \ wa y of organising data in sorted order 
without the data having to ' 

data is instead ordered logically. The data is organised 
using pointers associated with each data 



be physically in sequence, the 



H a += +~ k .j • , — v " item, this allows 

data to be sorted without physically moving the data. This 
technique is commonly used with disk files and 
internally as a sorting technique. 



may be used 



HEAD 



ITEM 1 



ITEM3 



ITEM2 



If data is held in a table like this, a user can output the 
data either in the sequence in which it is held or in its 
chained sequence. Each item input is compared with items in 
the chain, starting from the head of the chain, and is linked 
into its correct position. 



CAT 



DOG 



COAT 



CAT 



COAT 



DOG 



In a table this might appear as: 

NEXT 
FROM 



DOC, 






♦• 








CAT 


« — 















COAT 


-* — 1 
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The head of the list which points to the first data item in 
the chain is held in the first location in the table. The 
last item in the chain points back to the head of the chain. 
The program puts each data item in the next free place in the 
table and links it into its place in the chain. 

LINKLIST 



This is a set of four integrated subroutines designed to 
create a linked list data array and read/write to that array. 
24008 - Initialise: this routine creates the head and tail 
pointers for a new list. 

24026 - Input to list: this initialises the variables and 
calls the routines to get text and pointers and insert new 
item in array. 

24048 - Get text and pointer: this routine gets the text in 
PL$(PP)and extracts the pointer from the end of the text 
which it returns as variable PR. Variable PP is set to 1 to 
access the head of the file. 

24076 - Insert text: this routine is only used by the routine 
at 24028, it takes the input string P$ finds its correct 
position in the list using the subroutine at 24048 and adds 
the correct pointers on to the end of the string, using the 
back slash character as an end of string marker. 



Parameters used: 



P$ - string variable to be input to linked list. 

PL$0- array in which linked list is stored. 

PL - number of elements in array PL$(). 

FL - pointer to next free element in array PL$(). 

PI - error flag, if 1 then array is full. 

PP - element in array to be accessed by routine 24048. 

PR - pointer to next element in chain returned by routine 

24048. 
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•% 100 PL=1S0: REM **NUMBER OF ELEMENTS IN LIST** 

110 FL=l: REM **NEXT FREE ELEMENT IN LIST** 

120 DIMPL*<PL> i 

1000 REM ***************************** v 

1001 REM #EXflMPLE OF WAV LINK LIST ROUTINES I 

1002 REM *CAN BE USED TO STORE AND RETREI'-'E 5 

1003 REM *DATA. ' -: 

1009 REM ***************************** ft 

1010 PR I NT "SUM. INK LIST DEMO PROGRAM FlINOTinNSW ^ 
1020 PRINT"1-INPUT DATA TO LINK LIST" " " " — • J 
1030 PRINT"2-PRINT DATA IN CHAINED ORDER" I 
1040 PRINT"3-PRINT DATA AS HELD" J 
1050 PRINT"4-END" ! 
1 060 GETA* • I FA*= " " THEN 1 060 - 
1070 A=VAL<A*> .: 
1 080 ONAGOTO 1 1 00 .. 1 300 , 1 500 .. 1 098 

1090 END 5 

1100 REM ** INPUT DATA TO LIST** 

1110 PRINT'THMMINPUT DATA TO LINK LIST" 

1120 PR I NT "TO END ENTER 'END'HW" i 

1130 INPUTP* < 

1 1 40 I FP$= "END " THEN 1018 

1150 GOSUE24000 

1160 GOTO 1130 

1380 REM **PRINT DATA IN CHAINED ORDER** 

1310 PRINT-'.TDATA IN CHAINED SEQUENCE W i 

1320 PP=1 ' * 

1330 GOSUB24850 

1340 PP=PR 

1350 GOSUB24050 

1360 PRINTA1* 

1370 IFFR>1THEN1340 

1 380 GET A* : I FA*= " " THEN 1 380 

1390 GOTO 1010 

1500 REM **PRINT DATA IN LIST SEQUENCE** 

1510 PR I NT ".THAT A IN LIST SEQUENCED" 

1520 PRINT "ELEMENT POINTER DflTflWW" 

1530 F0RQ=1T0FL-1 

1540 PP=Q 

1550 GOSUE24050 

1560 FRINTQ,PR,A1* 

1570 NE*TQ 

1580 GET A*- IFA$=""THEN1380 

1590 GOTO 1010 

200O REM 

3000 REM 

4000 REM 

5000 REM 

60U0 REM 

24000 REM***************************** 

24002 REM*SUEROUTINES TO SET UP AND 

24004 REM* ACCESS LINK LIST ARPAV. 

24006 REM***************************** 

24008 REM 

24010 REM***INITIALISE LINK LIST*** 

24012 REM 

24014 IFFL>1THEN24032 
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24816 PL*a> = " \2" 

240 IS FH=2 

24020 PL*i2>=P*+"\l" 

24022 FL=3 

24024 RETURN 

2402b REM 

24028 REM****** INPUT TO LIST******** 

24030 REM 

24032 PP=l:F'i=0 

24034 I FFL>=PL+ 1 THENP 1=1- GOTO24046 

24036 REM 

24038 REM 

24040 REM 

24042 GOSUB24048 

24044 GOSUB24076 

24046 RETURN 

24048 REM 

24050 REM*****GET TEXT & POINTER*** 

24052 REM 

24054 fl2=LEN<PL*c:PP>> 

24056 F0Rfi3=lT0fl2 

24058 I FM I D* < PL* < PP > .. A3 , 1 > = " S " THEN24G62 

24060 NEKTflS 

24062 Hl*=LEFT*<PL*i::PP>,Fl3-i> 

24064 H2*="" 

24066 F0Rfl4=fi3+ 1 T0fl2 

24068 H2$=R2*+MID*<PL*<PP>,Fl4.. 1> 

24070 NEXTR4 

24072 PR=VflL-::fl2*> 

24074 RETURN 
24076 REM 

24075 REM*****INSERT TEXT********** 
2408U REM 

24032 Hl=PP 
24064 PP=PR 
24086 GOSUB24048 
24088 I FP*<H 1 *THEN24 1 04 
24090 I FP*=fi i *ORPR= 1 THEN24098 
24092 IFP*>fii*THEN24082 
24094 PF-Hl 
2 4 9 6 G S U B 2 4 4 8 
24G98 PL* ( PP > =fl 1 $+ " \ " +STR* < FL > 
24100 PL£ :FL>=P*+"\"+fl2* 
24102 GO- 1 0241 12 
24104 IFFHOPPTHEN24094 
241G6 FLt-a> = " \"+STR*<FL> 
24 1 OS FL* < FL > =P*+ " S " +STR* ( FH > 
24110 FH=FL 
24112 FL=FL+1 
24114 RETURN 
REflBV. 
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SORTED OUTPUT 



When the only requirement is to print out an array in sorted 
order, it is unnecessary to actually sort the array prior to 
printing. The sorting can be done as part of the array 
printing subroutine. The following subroutine is designed to 
print an array in sorted order. This subroutine is ideal if 
for example, all that is required is an alphabetic index of 
data stored either in core or on disk. Since indexing will 
account for many of the applications of this routine the 
option has been added to give a character heading to each 
alphabetic section. 



PRINTSORT 



This subroutine will output the contents of array P$ in 
sorted order either on the screen or on a PET printer. The 
routine requests which output device is to be used, screen or 
printer or both. The user is then prompted as to whether 
section headings are required (a section heading would for 
example be A above all entries in the array beginning with 
the character A). The array may be printed in both sorted and 
unsorted order. It should be noted that when sorting data 
consisting of long data strings which include punctuation, 
unexpected results may appear, due to the character 
representation given in PET ASCII to punctuation and graphics 
characters. By changing the device numbers used in this 
subroutine it could be made to output data in sorted order to 
a disk drive; a simple way of ensuring that data on a 
sequential disk file is in alphanumeric order. 



Parameters used: 



P$() - data storage array from which data is to be output in 
sorted order. 

PT%()- tag array used by sort code to indicate which elements 
in array P$() have been printed. 

PN - number of elements in array P$() which are to be 

sorted. 
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CO 

z 

100 DIM P*(200),PT C200) 5 

1000 REM **************************$*** Q- 

1001 REM *EXAMPLE OF SUBROUTINE CALL TO 

1002 REM *PRINT OUT IN SORTED ORDER THE 

1003 REM *CONTENTS OF ARRAV P*0. 

i ©us rem ****************************** 

l 1010 FOR Q=1TO10 

1020 INFUTP*<:Q}:REM ## INPUT ARRAV f*o** 
1030 NEXTQ 
*| -0^0 PN=10:REM **NUNBER OF RECORDS TO BE SORTED** 
| 1050 G0SUB21fififi 
1060 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 
_ 21800 REM ***************************** 

21002 REM *ROUTINE TO PRINT AN APPAV IN 

cil004 REM *IN ALPHANUMERIC ORDER HN EITHER 

21006 REM *THE PET SCREEN, PRINTER OR OTHER 

21008 REM *IEEE I/O DEVICE. 

21010 REM *THIS TECHNIQUE OFFERS ADVANTAGE:-: 

21012 REM *OVER SORTING THE LIST BEFORE ' 

21014 REN *PRINTING, PARTICULARLV IN TERMS 

21016 REM *OF TIME TAKEN. 

21 018 REM *NOTE- THIS ROUTINE SORT:-. ACCORD I Nh 

d'1020 REM *TO THE PET'S INTERNAL REPRESENTATION 

^1U22 REM *OF THE ASCII CHARACTER RET. 

i"lk^4 REM *PUNCTUATION MAV THEREFORE HAVE 

21026 REM *SOME UNEXPECTED EFFECTS. 

21028 REM ***************************** 

r 1 ?;:;! ^^Il^J^i^S STRINGS IN ALPHANUMERIC ORDER" 

21034 REM **DETERMINE WHERE TO BE SENT** 
2 1 036 AS=0 •■ AP=0 

_ 21033 INPUT"WI»H1»H3UTPUT Tn SCREEN <:'V CR N"<";V* 
21040 IF LEFT* CV*. 1> = '*V" THEN As=l 

21042 INh'UT":«?>i*i»i»:!lJTPUT TO PRINTER <:V HR N"'":V* 
21044 IF LEFT*(V$, 1>="V" THEN AP=1 
21046 KEM **OPEN PRINTER CHANNEL** 
2 1 048 I FAF-0THEN2 1 054 
21O50 CH=4: REM **PR INTER CHANNEL** 
21052 OPENCH,CH 
21054 REM **SECTION HEAD I NOR** 

21056 IhPUT"Mi»»i»»ISECTION HEABINOR >:'V np H)";Vt 
21056 AT=0 

21O60 I FLEFT* ■; V*, i:K>"V" THEN AT=1 

21062 REM **PRINT UNSORTED LIST** 

21064 INFUT'MSKWiililDO VOU WISH TO PRINT UNSORTED LIST " :!! .:V* 

21066 IFLEFT*(V*,1>C>"V" THEN 21076 

21068 FOR 1 = 1 TO PN 

21870 IF AS=1 THEN FRINTP*a.' 

2 1 072 I FflP= 1 THEN PR I HT#CH , P* < I > 

21074 NEXT I 

21076 REM **CLEAR PRINTED" FLAGS** 

21078 FOR 1 = 1 TO FN 
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21889 PT<r:<=e 
21982 NEXT I 

21084 IF AS=1 THEN PRINT = PRINT : PRINT 
21086 IF RF-1 THEN PRINT#CH- PRINT#CH : PRINT#CH 
21088 REM **PRINT SMALLEST IN OUTER LOOP,** 
21090 REM **TAG ONCE PRINTED, NEXT TIME** 
21092 REM **RGUND PRINT SMALLEST REMAINING** 
21094 AH*=CHR*<255::' 
21096 FOR 1=1 TO PN 
21098 AM*=CHR*<255> 
21100 flM=l 
21102 FOR,T=lTO PN 
21104 IF PTUT> = 1 THEN 21108 
21106 IF P*UXAM* THEN AM*=P*':J> : AM=J 
21108 NEXT J 

21110 REM **TflGGED SMALLEST FOUND** 
21112 PT-::AM> = 1 

21114 REM **PRINT LETTER HEADING (IF REQD. ;-** 
21116 AN*=LEFT* t. AM* , 1 > 
21118 IF<::<AH*=AN*>OR AT=1> THEN 21124 
21120 IFAS=1 THEN PRINT : PRINTAN* -FRINT 
2 1 1 22 I F AP= 1 THEN PR I NT#CH : PR I NT#CH , AN* : PR I NT#CH 
21124 REM **PRINT SMALLEST** 
21126 IFAS=1 THEN PRINTAM* 
21128 IFAF-1 THEN PRINT#CH, AM* 
21130 AH*=AN* 
21132 NEXTI 

2 1 1 34 PR INT: p R ! ht : PR I NT : PR I NT 
21136 REM **ROUND AGAIN?** 

21138 INPUT "DO VOU WISH TO PRINT LIST AGAIN" ;V* 
21140 IF LEFT* < V* , 1 > = " V " THEN 2 1 034 
21142 PRINT-O.K." 
21144 RETURN 
RE ADV. 
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SEQUENTIAL DATA FILES 



Sequential access disk files are the simplest form of disk 
data storage. Sequential file access is however not easily 
incorporated into standard subroutines. The subroutines used 
in this section consist of simple function blocks. To read or 
write a file will require on average three subroutine calls, 
one of which is repeatedly used within a loop. The 
demonstration program from lines 100-1290 show how they are 
used to read or write a file. The sequence of operations used 
is as follows: 

a) At the beginning of the program the data disk should be 
initialised and the command channel opened using subroutine 
24400. This must be done whether the file is to be written or 
read. 

b) To write a data file (file name F$) first call subroutine 
24000 to open a logical file for writing. This subroutine 
allows a new file to replace an old file, should an old file 
of the same name exist. Each record - P$ - can then be 
written on to disk using subroutine 24200; repeat calling 
this subroutine until all records have been recorded. The 
logical file can then be closed using subroutine 24100. 

c) To read a sequential file (file name F$) first open a 
logical file to read with routine 24050. Data can then be 
read by repeatedly calling subroutine 24300; each record is 
output as P$. The end of the file is indicated by the 
variable P being set to 64; the number of records on the file 
is contained in the variable IS. The logical file is then 
closed using subroutine 24100. 

The usual practice is to store the data for a sequential file 
in an array, though data can be input as individual records 
providing the file is kept open between writing each record. 
Data output can be either into an array or directly on to the 
screen or printer. These subroutines all use data in string 
format as the variable to be read or written to disk, this in 
my opinion is better than mixing data types on the file. This 
means that numerical data must be converted into string 
format before writing to disk, and vice versa when reading. 
Although the variable P$ is used to transfer data between the 
disk file and the main program, successive records need not 
originate from the same variable. Variables A$,B$ and C$ can 
be stored as successive records, each transfered as P$ to the 
subroutine. When using successive sequences of different 
variables it is important always to retain that sequence by 
recording each record, even if it has a null entry, otherwise 
when reading the file one will get out of order. If the 
number of records in each sequence is variable, then an end 
of sequence marker record must be used. 
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Parameters used: 



must "be^serif ^V""™ 1 " Umber ' ™ re than ™ value 
Typical value is 2 orT ° ne f lJe is accessed at a time. 

F$ - ^l^nare^f ' ^ ° ° r 1} ° f ««!"ential data file. 
P$ - data as str?i ^"V* 1 data *«« to be accessed, 
from disk S Stnng Vanab]e to be stored on disk or read 

P 
=6*. 

£ set To%jL r ™'llJ" d r, t '™ a «1«"W *«e. should 
relative posi.iTo] ZZTJJ't °£ * U " d » d " e ™" e 



end of file fiag normally = o, i, end of file then 
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106 CH=2D=1 -REM *CHANNEL AND DRIVE NUMBER** g. 

110 SP*=" , % 

Uki CR*=CHR$<:;i3> : REM **CARRAGE RETURN* f 

1000 REM *************************** 

1001 REM *BEMONSTRATION OF USE HF s£u 

1002 REM *FILE SUBROUTINES. 

1009 REM *************************** 

1010 GOSUB24400: REM INITIALISE* 

1020 PRINT".TWWWSEQUENTIflL DISK FILE DEMO FilNf.TiriNSW 

1 030 I NPUT " I NPUT FILE NAME " ; F$ 

1040 PR I NT "MM1 -CREATE DATA FILE" 

1050 PRINT"MM2-REfiD DATA FILE" 

1 060 PR I NT " MM3-END " 

1 070 GET A* •• I FA*= " " THEN 1 070 

1080 fi=VAL<A$} 

1 090 ONAGOTG 1110,1 2fifi . 1 1 Mfi 

1100 END 

1110 REM * 

1111 REM *CREATE DATA FILE. 

1119 REM * 

1 1 20 GOSUB24000 

1130 PR I NT" riflim NPUT DflTA TO BE STORED nN DISKWW" 
1140 INPUTP* " 

1 1 50 I FP*= "END " THEN G0SUE24 1 OO : GOTH 1 fl£fi 
1 160 GOSUB24200 
1170 GOTO 1140 

1200 REM * 

1201 REM SPRINT SEQUENTIAL FILE 

1209 REM * 

1210 PRIHT'-OWWDISPLflV DATA ON FILEW 
1220 GOSUB2405O •' IS-0 

1 230 GOSUB243O0 

1240 PR I NT I S, P*, P: REM *PRINT RECORD NUMBER, DATA, AND STATUS* 

i^._.y IFF-64THEN GOTO 1270: REM *END OF FILE"'* 

i^e.y GOTO 1230 

1270 GETA$: IFA*=""THEN1270 

1275 GOSUB2410O 

1280 GOTO 102O 

20O0 REM 

3000 REM 

4000 REM 

5800 REM 

2400O REM *************************** 

cMUfcil REM *OPEN LOGICAL FILE TO WRITE 

c:40O9 REM *************************** 

240 1 ORENCH , o , CH , " © " +STR* ( D ) + " ■" " +F$+ " . S , H " 

2'4tt'0 GO SUE 3 0300 

24030 RETURN 

2405O REM *************************** 

24851 REM *OKt,N LOGICAL FILE Jn READ 

c:4059 REM *************************** 

24O60 UPENCH , 3 , CH , STR* ( D > + " : " +F$+ " , S . F " 

2407O GOSUBS0:-;0fi 

240SO RETURN 

2410O REM *************************** 

c.4101 REM *CLOSE LOGICAL FILE 

24109 REM *************************** 
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24118 CLOSECH 

2412Q RETURN 

24206 REM *************************** 

24201 REM *PRINT RECORD TO FILE 

24209 REM *************************** 

242 1 PR I NT#CH , P* , CR* i 
24220 OOSUE30300 
24230 RETURN 

24300 REM *************************** 

24301 REM *REAB RECORD FROM FILE 

24309 REM *************************** 

24310 INPUT#CH,P* 
24320 P=ST 
24330 GOSUB303A0 
24340 IS=IS+1 

24350 I FP=64THENG0T024 1 OO 

24368 IFPO0THENME*="BHD DISK STATUS "+STR*<"F 'J : GHsl IBSfilfifi 

24370 RETURN 

24400 REM *************************** 

24401 REM INITIALISE DISK 

24409 REM *************************** 

244 1 OPEN 1 5 , 8 , 1 5 , " I " +STR* < D ) 
24420 GOSUE3030fi 

24430 RETURN 

29880 REM *************************** 
29801 REM *CURSOR CONTROL SUBROUTINE 
29805 REM *************************** 

298 1 AC$= " »»»»»i»»»»ii»»»»»ii»»i»ft»i»»»»r 

k'9820 AB$= " MMNHDflMffiH^^ 

29830 PR INT" 3"; 

29840 I FCOL> 1 THENPR I NTLEFT* •:.' f\f.$ . THL- 1 ':< ; 

29850 I FLNE> 1 THENPR I MTLEFT* ( AD* . LHE- 1 :< ; 

29860 RETURN 

301O0 REM ******************** 

30181 REM *WARNING MESSAGE 

30105 REM ******************** 

30 1 1 COL= 1 •' LNE=25 : GOSUB24:-:Ofi 

30120 Rf="llll||" 

30138 FORA=1TO20 

38 1 48 AW=LOG ( it > •' PR I NT " SERPOP " A* ; 

38 1 58 AW=LOG <:.' it > •' PR I NT " KPpnp " A* : 

38168 NEXT: PRINT" SERROR "LEFT*(ME*+SP* . 22 V'S" ; 

30 1 70 GETfl* : I FA*= " " THEN3H 1 7fi 

30 1 SO COL= 1 : LNE=25 : GOSI IBS^Sflfi 

30190 PRINTSP*; 

30200 RETURN 

30300 REM**************************** 

38381 REM*DISK ERROR ROUTINE 

30389 REM**************************** 
383 1 8 I NPUT# 1 5 , EN , EM* , ET , ES 

b'8328 I FEN=8GOTO38480 

30330 COL=l : LNE=24 : GOSI IB29RO0 

3034O PRINT" 3D I SK ERROR - ■" ; EN . EM* ; " T";ET." 2";Es." B" ;DI 

30350 PRINT" CONT, 'ABORT ? ", 

3036O GETfl*: IFA*=""THEN*fi3£fl 

38378 I F A*<> " C " ANDA*Q " A " falj f iP.fr?, f,fi 

30380 IFA*="A"THEN END 

30390 COL=l : LNE=24 : G0SUE2^8fi« : PRINTsp* : 
38400 RETURN 

READV. 
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MACHINE LANGUAGE SEQUENTIAL DISK ACCESS 



This section deals with a method of accessing sequential disk 
files from a machine code program. Of use firstly because it 
allows machine code programs to access disk data and secondly 
because subroutines written in machine code based on these 
ideas can be used to greatly speed up data access in Basic 
programs. It is this second use which will be considered in 
this section. 

The GET// command in Basic is very slow, though often very 
useful, especially when concatenating data. It is useful 
because each character accessed from disk can be analysed to 
detect interfield and end of record markers, cutting out time 
consuming string manipulation. To overcome the problem of 
slow access of data using the GET// command while retaining 
optimum speed in concatenation it is necessary to access the 
disk in machine code. This is made much easier by utilising 
subroutines within the Basic interpreter and operating system 
of the PET. The following are a few of the entry points which 
can be used: 

$C389 - exits to 'Ready' mode. 
$FFCC - resets default I/O devices; 

ie keyboard and screen. 
$F770 - LDX //LF you want to access, 

sets up for input. 
$F1E1 - get character from a device, 

puts char in accumulator. 
$F7BC - LDX //LF vou want to access, 

sets up for output. 
$F232 - outputs a character to a device, 

accumulator contains character. 
$E3D8 - output character to screen from ace. 
$FFE1 - tests for the 'Stop' key and exits 

to 'Break' if 'Yes'. Otherwise returns. 
$F524 - opens file set up in LA, FA, SA. 
$F2AE - LDA //LF that you want to close. 
$FFE4 - get a character from keyboard buffer 

character goes into ace. 
$CA1C - prints a string terminated with a 

zero and located at Y,A. 
$C46F - input string (like Basic input), puts 

string in the basic input buffer ($0200) 
$DB55 - floats accumulator// 1. Necessary 

for conversion from LO,HI to ASCII. 
$DCE9 - Turn acc//l into ASCII at $0100 on. 

How to convert from LO,HI to ASCII: 

LDA //LO 
STA $5F 
LDA //HI 
STA $60 
LDX //$90 
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SEC 

3SR $DB55 

JSR $DCE9 

ASCII number stored at $0100 hex. 

LA - $D2 - current logical address (for open) 

FA - $D4 - current first address 

SA - $D3 - current secondary address 

FN - $DA,$DB - filename address pointer 

FL - $D1 - file name length 



The following machine code program demonstrates the use of 
these locations and entry points. It will display on the 
screen the contents of a sequential disk file, the name of 
which is input by the user in the first part of the program. 
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MBISK: 


jRU » » . 


. . . PflGt 


0001 


LIHE# 


LOC 


CODE 




0001 


0006 






0002 


0000 






0003 


0000 






kIkUJm- 


0000 






0005 


0000 






0006 


0000 






0007 


0000 






000 8 


0000 






0009 


0000 






0010 


0000 






0011 


0000 








0000 






Ci Ci 1 '~: 


0000 






0014 


0000 






0015 


0000 






361 6 


0000 






~ai~> 1 ~7~ 


0000 






00 1 8 


0000 






00 1 9 


0000 






w y j d kj 


0000 






0021 


0000 






0t*22 


0000 






0023 


0000 






0024 


0000 








0000 






002 b 


0000 






0027 


0000 






tJ02o 


0000 






002? 


0000 






_ .. 


— — — 






KjMsy 


y'-oi-i 






_ _ _ . 


._ _ _ _ 


— — — -— — 


j 


0U J I 


0b : 3H 


itl or L 


u+ 


0032 


033Ii 






3033 


03 3D 


A3 00 












yyy4 


o i' r 






3035 


333 F 


35 DA 




003 b 


034 1 






"7" 


034 1 


Ci Q jT-j •"■ 








I • ._ - ! 




0333 








_ _ ._ „ 


— ~ ^ — 


— j^- 7":"T: 




oy .::■-* 


K! . "; ^ ": 


0-.J J_T' 




0040 


y - 1'' H" -''"■ 






"^ !~. .1 4 


:'"! ~ -f cr 


.-- ,-. ,~j -, 






ti O H- ■_■ 






?'nt c 


0347 







H:: 



yy^-b 


yy^+ti 


C' -_- r 


i.i'-t 




3047 


3343 


^9 


y y 




~jy48 


3 " 4 V 








3049 


kJ-Z' l -* r 


c^ 


T> ~: 




0050 


y ;. j j. 


H "---' 


00 




=-J i::.' -„ l .1 


0S5 3 








305i 


0353 








305:3 


0353 


T: T: 


00 





3054 


0358 








"j .-.. zr cr 

K ! K i ._• .J 


3356 


F0 


04 





LINE 



; *************************** 

■ *PROGRAM TO READ A SEQUENTIAL 

■*FILE FROM DISK. 

:*REQUESTS FILE NAME THEN PRINTS 

;*CONTENTS OF FILE. BATA_TRANSFER 

;*RRTE IS ABOUT 3006 EVThS FER SEC 

; *************************** 

.SVSTEM VARIABLES 

NAL0=$DA.; ADDRESS OF FILE NAME LO 
NAH I =$DE; ADDRESS OF FILE NAME HI 
LH=*D2; LOGICAL DEVICE NUMBER 
Ffl=$D4 ; PR I MARV ADDRESS 
8A=$D3 ; SECONDARV ADDRESS 
FL=*Dl; LENGTH OF FILE NAME 
ST=$96; STATUS CODE 

■SVSTEM SUBROUTINE CALLS 

INPUT=$C46F.;INPUT DATA INTO BUFFER 
FfiPEN=*F524 ; OPEN F I LE LA , r A , SA 
BASIN=$F1E1.;INFUT SOURCE EVTt 
FRT=iE8D8; PRINT CHARICTER TO SCREEN 
FCL0SE=$P2AE ; CLOSE FT LE . A 
CLRCHN=$FFCC; CLOSE I/O CHANNELS 



*=826 

START JSR INPUT 

■BASIC INPUT OF FILENAME INTO BUFFER 

LDA #$80 
;LOAD ACC WITH LO EVTE OF FILENAME ADDRtSS 

STA NALO 
: STORE IN FILENAME ADDRESS FOINTER LO 

LDA #$02 
■ LOAD ACC kilTH HI EVTE OF FILENAME ADDRtSS 

BTA NAHI 
■STORE IN FILENAME ADDRESS FOINTER HI 

LDA #$02 
■SET LOGICAL FILE TO 2 

3TA LA 

LDA #$08 
■SET DEVICE NUMBER TO 8 

STA FA 

LDA #$82 
■SET SECONDARV ADDRESS TO 2 

STA SA 

LDX #$00 
■SET INDEX TO ZERO 

LOOP! LDA $0200...-: 
;0ET A CHARACTER FROM INPUT BUFFER 
BEQ. END 
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MDISKSRC2 PAGE 0002 

LINE* LOC CODE LINE 



0056 


0358 








0057 


0358 


E8 






8058 


8359 








0059 


0359 


4C 




63 


0060 


035C 








006 1 


035C 








0062 


035C 


86 


Dl 




0063 


835E 








0064 


835E 


28 


24 


F5 


£1065 


8361 








<&Q6G 


8361 








8067 


8361 


20 


El 


Fl 


0068 


8364 








0069 


8364 


R4 


36 




0070 


8366 








0071 


8366 


D8 


86 




0072 


8368 








0073 


8368 


28 


D8 


E3 


0074 


836E 








0075 


036E 


4C 


61 


83 


0076 


836E 








0077 


836E 








0078 


836E 


R5 


D2 




0079 


8378 








0080 


8378 


28 


HE 


F2 


0081 


8373 








0082 


8373 


28 


CC 


FF 


0083 


8376 








O084 


8376 


68 






0085 


8377 









:IF ZERO THEN FILENAME END 

I NX 
:BUMP INDEX 

.IMP LOOPl 
.AND DO fiGAIN 

END SIX FL 

,SET FILENAME LENGTH 

JSR FOPEN 
iOPEN FILE 

L00P2 JSR EASIN 

,GET CHARACTER FROM FILL 

LDV $36 
■TEST STATUS 

ENE OUT 
:END OF FILE OR ERROR DETECTED 

JSR FRT 
■PRINT CHARACTER 

JMP L00P2 
; DO AGA I N 

OUT LDA LA 

;LOAD ACC WITH LOGICAL MLE 

JSR FCLOSE 
; CLOSE FILE 

JSR CLRCHN 
; CLEAR CHANNELS AND RESET DEFAULT L-- 

RTS 

. END 



i- i 



ERRORS = 8808 



SYMBOL TABLE 



SYMBOL 


VALUE 














EASIN 


F1E1 


CLRCHN 


FFCC 


END 


^•-^r 


rA 


88D4 


FCLOSE 


F2AE 


FL 


88D1 


FOPEN 


F524 


INPUT 


C46F 


LA 


00D2 


LOOPl 


0353 


L00P2 


0361 


NAHI 


08DB 


NALO 


00DA 


HUT 


036E 


PRT 


E3D8 


SA 


60 D3 


ST 


0096 


START 


033A 











END OF ASSEMBLY 



118 



RANDOM ACCESS DISK FILES 



This is the most useful form of disk access, though much 
harder to program and more wasteful of disk space than 
sequential files. Whereas with a sequential file the actual 
position of the file on disk is unimportant, with random 
files we need to know the exact position (track and sector) 
of the data. To understand the use of random or direct (since 
data is accessed directly from a specified disk location) 
access files one must understand the way in which data is 
stored on disk. Data is stored in 35 concentric tracks, each 
track being split into between 17 and 21 sectors. Each sector 
or block (there are a total of 690 on a single disk) stores 
255 bytes of data. Data stored in a block can be referenced 
by its position; block 35 is at the position of sector 3 on 
track 2. This is the basis of random access on the 3040 disk 
drive, each record is allocated a block of 255 bytes which 
has its own address specified by the track number and sector. 
Not all blocks on a disk are usable, the whole of track 18 is 
reserved for the disk directory and should not be used for 
direct access, this means that the maximum number of usable 
blocks on a disk is 670. 

The use of direct access can be fairly complex unless certain 
rules are adhered to. The first rule: a whole disk must be 
dedicated exclusively to the storage of random data, since 
storing programs or sequential files on the same disk will 
cause problems with allocation of free blocks. The second 
rule: a record should not exceed 255 bytes long, otherwise 
problems will be encountered with block boundaries. Allied to 
the second rule is: when more than one record is stored in a 
block (this is a method of increasing the number of records 
on a disk) then the sum of the maximum lengths of all the 
records in a block should not exceed 255 bytes. 
The data stored in each block can be split into a number of 
fields, where each field is a string variable (as with 
sequential files, I prefer to use only one variable type in a 
file and thus convert all numeric variables to strings prior 
to writing on disk and vice versa when reading). It is very 
important when writing to a disk file that all blocks have 
the same number of fields, null data fields must be entered. 
Direct access records are best stored using fixed length 
fixed format data (see introduction). To increase the number 
of records above 670, each block must be divided into sub 
blocks. To have 1340 records means dividing each block into 
two 127 byte sub blocks, 2680 records four sub blocks of 63 
bytes etc. Each sub record will consist of one or more fields 
(note: each field has a maximum length of 80 bytes, therefore 
a 126 byte sub-block must have a minimum of 2 fields). 
Data can be accessed from a direct access disk by using the 
track and sector number of that data to locate and read it. 
This method might be used in a simple stock control system 
where each stock line is given a number corresponding to a 
record numbeKie the number of blocks from track 1 sector 1 
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to the track and sector where the data is stored) on the 
disk. In many cases however a data record cannot be given a 
number. In these cases one must use an index. The index 
associates a key word with the track and sector number of the 
data associated with that data. The index is best held as an 
array, in fact as two parallel arrays, one string for the 
keywords and the other numeric for the track and sector 
numbers. The key word used must be something associated with 
the data, thus in an address file it would be the person's 
name. The following is an example of how data would be held 
in an address file index: 

Key-word track sector 

SMITH 1 1 

JONES 1 2 



BROWN 1 3 

WHITE 1 4 



etc. 



By searching through the index for a matching keyword, the 
track and sector where the associated data is stored can be 
obtained from the matching element in the numeric array. With 
a large key index, searching can be made easier by sorting 
the file into alphanumeric order (make sure that associated 
elements in both arrays are always kept together) and using a 
binary search (see machine code sort package). As data is 
added to the disk, the index array is updated with the new 
key word and the track and sector where its data is stored. 
The key index can be saved as a sequential file on the non 
direct access disk. 

The subroutines associated with this section are best 
understood by examination and running of the example calling 
program. 

To write a record to disk requires that a direct access data 
file is first opened using routine 22180. Records can then be 
written simply by inputting the record number DI and entering 
data into each of the fields in the record via an array A$() 
of NF elements, where NF is the number of fields in a record. 
In the example, entering a as record number terminates the 
data entry, closes the file with routine 22240, and returns 
to the function select menu. After entering all the records 
the file should be closed with routine 22240. 

S,*n ea n a reCOrd a direct access file is opened with routine 
22ixu. Record number DI is then read with routine 22330, and 
the data placed in array A$() from elements 1 to NF. Having 
^ ea J a11 the records required the file is closed with routine 
22240 (in the example the file is closed by entering as 
record number). 

These subroutines use record numbers rather than track and 
sector. Subroutine 22480 -TRACK/SECTOR converts this record 
number into its corresponding track and sector numbers. It 
also stops data being written on to the directory track, 
track 18,(hne 22525). Full error checking is done by the 
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subroutine DISKERROR at 30300 which uses CURSORCONT to 
display full error messages on line 7k and 25. 

Parameters used by RANDOM: 



CH - direct access channel number 

D - drive number of direct access disk. 

NF - number of fields in a record. 

A$()- array of NF elements in which data fields of a record 

are stored during record read or write. 
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100 SP*=" 

110 CR$=CHR*a3 

1000 REM . . . 

lfifil REM *DEMONSTRflTION OF USE OF RhHDuM 

lfitf2 REM *flCCESS FILE SUBROUTINES. 

1003 REM **************************** 

1018 CH=4 

1R39 INPUT'TMIMDRIVE " , D 

1040 INPUT"M*NUMBER OF FIELDS ";NF 

1050 PRINT'TMHRfiNDOM FILE DEMO FUNCTIONSWS" 

1 060 PR I NT " 1 -WR I TE RECORD " 

1070 PRINT"W«2-REP,D RECORD" 

1 OS© PR I NT " WW3-END " 

1 090 GETfl* : I Ffi*= " " THEN 1 890 

1100 H=VHL<H*> 

1110 ONflGOTO 1 200 .. 1 500 .. 1 1 20 

1120 END 

1200 REM **WRITE RECORD TO DISK** 

1 2 1 fi G0SUB22 1 80 

1220 PRINT'TMMWRITE RECORD TO DISKWW" 

12:"i0 INPUT "RECORD NUMBER ? *';DI 

1 240 I FD I =0THENGOSUB22240 ■■ GOTO 1 050 

1250 PR I NT "WW" 

1 260 FORQ= 1 TONF 

1270 PRINT"FIELD ";Q;" IS - " ; 

12S0 INPUTH*<Q> 

1290 NEXT 

1 300 GOSUB22080 

1310 GOTO 1220 

1500 REM **REfiB RECORD FROM DISK** 

1510 GOSUB22180 

1520 PRINT'TMHREfiD RECORD FROM DISKWW" 

1530 INPUT "RECORD NUMBER ? ";DI 

1540 IF DI=0 THENGOSUB22240: GOTO 1050 

1550 PR I NT "WW" 

1 560 G0SUB22338 

1570 F0RQ=1T0NF 

1580 FRINT'TIELB ";Q;" IS - ";fi*'::Q> 

1590 NEXTQ 

1600 GET H$:IFH*="" THEN 1600 

1610 GOTO 1520 

2800 REM 

3800 REM 

4000 REM 

5000 REM 

22080 REM**************************** 

22090 REM*ROUTINE TO WRITE RANDOM DATA 

22180 REM**************************** 

22 1 1 O GOSUB22480 

22 1 20 PR I NT# 15, "Ul " CH ■ D , DT .; DS 

22 1 30 PR I NT# 15," B-P " CH , 1 

22140 F0RQ=1T0NF 

22150 PRINT#CH,H$0:!>.;CR*.; 

22160 NEXT 

22 1 70 PR I NT# 1 5 , " U2 " CH .; D ; DT .: DS 

22 1 72 Hfisi IB^fi'iOO 

22175 RETURN 

22188 REM*************************** 
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22198 REM*ROUTINE TO OPEN RANDOM FILE 

222M0 REM*************************** 

22210 OPENCH,S,CH, "#" 

22220 OPEN 15, 8, 15 

22225 GOSUE30300 

2223U RETURN 

22240 REM*************************** 

22250 REM*Rfi!ITIHE TO CLOSE RANDOM FILE 

22260 REM*************************** 

22270 CLOSECH 

222S0 CLOSE 15 

22290 RETURN 

22320 REM***************************** 

22330 REM*ROUTINE TO READ RANDOM FILE 

22340 REM***************************** 

2235fi nriSUB22480 

22360 PRINT#15,"U1"CH;D;DT;DS 

22370 PRINT#15,"E-P"CH.:l 

22375 GOSUB30300 

22380 FORQ=lTONF 

22390 INPUT#CH,fl*<Q> 

224O0 NEXTQ 

22410 RETURN 

22480 REM***************************** 

22490 REM*ELOCK TO TRACK/SECTOR g 

225O0 REM*CONVERSION H 

22518 REM***************************** U 

IF DK1 GOTO 22570 «£ 

I FD I >357THEND I =D I +20 * 

IF DK358 THEN DA=1 •■ DB=21 •' DC=DI-1 : GOTO 22580 U 

IF DK498 THEN DA=18 : DB=20 : BOD I -358 ' •"'""'"■ ™= nn 
IF DK606 THEN DA=25 : DE=18 • DOD 1-498 

22560 IF BK691 THEN DA=31 : DB=17 : DC=D I -606 

22578 DT=0 ■' DS=0 : GOTO 22600 

22580 DT=IHT<DC/DE>+Dfl 

22590 DS=DC- 1 NT < DC/DB > *DB 

22600 RETURN 

29300 REM *************************** 

29801 REM *C:URSOR CONTROL SUBROUTINE 

29305 REM *************************** 

2931 j ac;= »»ft»»ftfti»ftiii»»»i»»»»»ft»»ii»»»*»i" 

29828 AD$= " :I!I«!M««!M!©ftII!MS«««?ftM(!Il!I«!IflBI«!I?MI!3 ,, 

29350 IFCCiL.:MTHENPRIHTLEFT*<flC*, COL-1 > .: 
29360 IFLHE>1THENPRINTLEFT*(AD*,LHE-1 >; 
29898 RETURN 

30300 REM**************************** 

30301 REM*DISK ERROR ROUTINE 

30309 REM**************************** 

30310 INPUT#15,EN,EM*,ET,ES =, 
o032fci IFEH=0UOTO30400 O 
3U330 COL= 1 ■■ LNE=24 •• GOSUB298O0 g 
30340 PRINT" 3D I SK ERROR - ■" ;EN,EM*," T".;ET.; n S'SES," E";DI, g 
30350 PRINT" CONTINUE OR ABORT ? " .: * 
30360 GETfl* : I FA*= " " THEN3036O 5 
30370 IFA*O"C"ANDA*O"A"GOTO30360 = 
30380 I FA$= " A " THENCLOSECH • END 

30390 COL= 1 ■ LNE=24 : GOSUE29800 : PR I NTSP* i 
-;fi4Mfi RETURN 
REfiDV. 
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2520 


w 


2525 


CL. 


2530 


C_ 


2540 


w 


2550 



GOTO 22588 £ 
GOTO 2258Q t" 
GOTO 22580 
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DISK UTILITIES 



The two programs in this section are designed to give the 
user information about how data is being stored on disk; they 
are of most use when using direct access files. BLOCK MAP 
prints a table of all t e blocks on a disk, track by track, 
showing which blocks have been allocated for data storage by 
the system and which are free. Free blocks can then be used 
for direct access (modifying the subroutine TRACK/SECTOR one 
can block off allocated sectors). Alternately one may simply 
wish to find out how much free space is left on a disk. 
SECTORPRINT is the second of the two programs and is designed 
to print a table of data stored in a specified block. The 
data is displayed both in ASCII and hexadecimal form. Using 
this program one can see how data is stored on disk and also 
discover the source of disk errors or corruption. 






124 



0- 

< 

5 

108 REM ***************************** O 

110 REM *THIS DISK UTILITV PROGRAM £ 

120 REM *flLLOWS ONE TO LOOK AT WHICH 

ISO REM *BLOCKS OH THE DISK ARE 

140 REM *ALLOCATED TO DATA OR PROGRAMS. 

ISO REM *USEFUL IN CHECKING WHERE DATA 

160 REM *HAS BEEN STORED WHEN USING 

170 REM *RANDOM FILES. 

ISO REM ***************************** 

1000 P0KE144..43: REM *D I SABLE STOP KEY* 

101O 0PEN15,8,15 

1020 PRINT".TWW«WW" 

103O PRINT"HARDCOPV V OR N » :R=0 

1040 GETfl*-- IFA*=""THEN1040 

1050 IFA$="V"THENP=1 

1060 PRIHT"3«WWDRIVE# " 

1O70 GETD* : IFD$=" "THEN 1870 

1080 D=VAL<D*> 

1 090 I FPTHENOPEN 1 , 4 ■■ PR I NT# 1 •' PR I NT# 1 

1180 PRINT":]" 

1110 Pl*=" 1 2" 

1120 P2*=" TRACK 012345678981234567898 USED FREE" 

1 1 30 PR I NTP 1 $ •' PR I NTP2* 

1140 I FPTHENPR I NT# 1 , P 1 $ ■ PR I NT# 1 , P2* 

1158 F0RDT=1T035 

H60 DT*=RIGHT*<:STR*a08+DT>,2> + " 

1170 ADS=21 

1 1 88 I FDT> 1 7THENADS=28 

1 1 98 I FDT>24THEHADS= 1 8 

1290 IFBT>30THENHHS=17 

1218 PR I NTDT* ; : I FPTHENPR I NT# 1 , DT$ ; 

1 220 AU=0 •' AF=0 

1230 FORDS=0TO2O 

1240 fi$=". " 

1258 IFDS>=ABSTHENA*=" ":GOTO1320 

1 260 PR I NT# 1 5 , " B-A " D ; DT ; DS 

1270 INPUT#15,EN,E1*,E2*,E3* 

1280 IFENO0THENA*="*" : AU=AU+1 : GOTO 1328 

1 290 AF=AF+ 1 : PR I NT# 1 5, " E-F " ; D ; DT ; DS 

1308 GOSUB1440: IFEH=0THEN1328 

1310 PRINT PR I NT: PR I NT "DISK ERROR "EH, El*, E2*, E3$ ■ STOP 

1320 FPINTfi*; : I FPTHENPR I NT#1,A$; 

1330 NEXTDS 

1346 AU*=PIGHT*';STR*<flU+100>,2> + " " 

1350 HU?=HU*+PIGHT*'::STR*(AF+100>,2> 

1 360 PR I NT " " ; All* : I FPTHENPR I NT# 1 , " " ; AU* 

1 3 .-■0 b'U=BU+AU : BF=BF+ AF 

1380 HEKTBT 

1330 PRINT PRINT: PRINT 

14O0 F3*="BLQCKS USED "+STR$(EU)+" FREE "+STR*<EF> 

1410 PR I NTP3* : I FPTHENPR I NT# 1 , P3* 

1420 CLOSE 1 -CLOSE 15 

1430 P0KE144,46:END 

1 440 I NPUT# 1 5 , EN , E 1 $ , E2* , E3* 

1450 RETURN 



READ 



T 
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TRACK 

61 

62 

03 

34 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



24 

-.cr 



29 
30 
31 

oil 

34 
35 
ELOi 



1 234567890 1 234567890 US 



********************* 

********************* 

********************* 

********************* 

********************* 

********************* 

** ..*..*..*••*••*■•* 

******************** 

******************** 

******************** 

******************** 

******************** 

******************** 

* 
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00 


21 


00 
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00 
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20 


00 


20 


00 


20 


00 


20 


00 


01 


17 


00 


18 


00 


18 


00 


18 


00 


18 


00 


18 


00 


17 


00 


17 


00 


17 


00 


17 


00 


1 I 



CKS USED 255 FREE 435 



Sample printout from program BLOCK MAP 



12f, 



z 

100 REM ****************************** 5 

110 REM *DISK UTILITY PROGRAM TO PRINT a. 

120 REM *CONTENTS OF A DISK SECTOR IN g 

130 REM *HEX HMD ASCII. USEFUL IN CHECKING H 

140 REM *DATA STORED CORRECTLV. 2 



156 REM 

1066 DIMFK264) 

1610 Z1$=CHR*<0> 

1615 PRINT "IT 

1020 PRINT"HARDCOPY V OR N "i-P-& 

1 02 s7 . GET A* : I FA*= " " THEN 1 625 

1030 IFA*="Y"THENP=1 

1 040 0PEN4 , 3 , 4 , " # " : CH=4 

1058 OPEN 15,8, 15 

1 flfiS I FPTHENOPEN 1,4: PR I NT# 1 , CHR* < 1 47 > ; 

1070 PR I NT "D" 

1086 INPUT "DRIVE " ; D 

1090 INPUT "TRACK " .: T 

1100 INPUT "SECTOR " ; S 

1116 PR I NT "WWW" 

1 1 20 PR I HT# 1 5 , " U 1 " CH ; D i T i S : GOSUB 1 490 

1130 PRINT#15,"B-P"CH.;l 

1 1 40 FOR I = 1 TO250STEP5 = GET#4 , C 1 $ > C2* , C3* , C4* , C5* 

1150 FKI>=flSC<;Cl*+Zl$> 

1160 fi<I+l)=flSC<C2*+Zl*> 

1170 fla+2)=flSC<C3*+Zl*> 

1 1 80 A (. I +3 ;• =ASC ( C4$+Z 1 $ > 

1 1 90 fl < I +4 ) =ASC < C5$+Z 1 $ ') 

1200 NEXT I 

1210 FORI=1TO250STEP8 

1 220 I F I = 1 2 1 THENGOSUE 1 460 

12^0 A*=RIGHT*<::STR$a000+I},3;' + " : " 

1 240 PR I NT A* .; : I FPTHENPR I NT# 1 , A* ; 

1 2^0 Fnpy=0TO7 

1 2f.Pt I FA < I +Q ) = 1 3THENA*= " <-" : GOTO 1 300 

1 270 I F A <: I +Q ) = 1 ©THEN A*= " < " : GOTO 1 300 

1280 IFA<I+Q)>1270RAa+Q)<:32THENA$=". " : GOTO13O0 

1 290 A$=CHR$ < A (. I +Q > > 
1 300 PR I NT A* ; : I FPTHENPR I NT# 1 , A* , 
1316 NEXTQ 

1 320 PR I NT " " .: : I FPTHENPR I NT# 1 , " " ; 
1330 FORQ=0TO7 
1340 fl=R(I+Q) 

1350 A1=AhND15 : A0=<AAND240>/16 
i 360 H 1 = A 1 +43 : I F A 1 >57THENA 1 =A 1 +7 
1373 H0=A0+43: IFA0>57THENA0=A0+7 
13:30 PRINT" ".;CHR$<A0>;CHR*<::A1>; 
1 390 I FPTHENPR I NT# 1 , " " .: CHR* ( AO > ; CHR* < A 1 > .; 
1430 HEXTQ PRINT" " : IFPTHENPRINT#1 , " " 
1416 NEXT I 

1 420 PR I NT " MS" ■' I FPTHENPR I NT# 1 
1430 PR I NT "ANOTHER -VES OR NO-", 
1 435 GETA* : I FA*= " " THEN 1 435 
1440 IFA*="V"THEN1070 
1 4 c i0 CL0SE4 : CLOSE 1 5 ; END 
1460 GETA*: IFA$=""THEN1460 
1470 PR I NT M" 
1480 RETURN 

1 490 I NPUT# 1 5 , EN , E 1 * , E2* , E3* 
1495 IFEN30THENST0P 

1500 RETURN 1?7 

READY. 



001 

069 
017 
025 
033 
041 
049 
057 
065 
07" 3 
081 
fift9 



105 
113 
121 

145 

iDi 

169 
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KMHP. . . 



.SECT 
JRPRIMT 



.DIG 



DM 



. KfiND 



. . i n i 

RfiNIJ. . . 



bd: 



....DDPL 

uT. . . . 



, . . . RHND 

Ti — Mi-. 

i-'diiU. . 



04 32 11 06 42 4C 4F 43 

4B 4D 41 50 H0 H0 AS OS 

fie fie fie fie ee ee ee ee 

ee 00 ee ee ee e4 ee ee 

ee 32 ii ei 53 45 43 54 

4F 52 56 52 49 4E 54 fi6 

fie fie fie fie ee ee ee ee 

@0 00 00 00 00 05 00 00 

00 82 11 04 44 49 47 49 

54 h0 ft© fie fie fie oe fie 

fi0 fi0 fi0 fi0 00 00 00 00 

00 00 00 00 00 02 00 00 

00 32 11 05 52 41 4E 44 

4F 4D H0 fi© fie fie fie ne 

fie fie fie fie ee ee ee ee 

ee 00 00 00 00 es ee ee 

00 32 1 1 09 49 4E 49 54 

52 41 4E 44 fi8 fi0 fi© fi0 

fi© 00 fie fie ee ee ee ee 

ee ee ee 00 00 0* ee ee 

ee 32 13 00 42 44 49 53 

50 fie fie fie fie fie fie fie 

fie fie oe fie ee ee ee 00 

00 00 00 13 00 04 00 00 

60 82 13 05 44 44 50 4C 

4F 54 A0 fi© oe fie oe fie 

fie fie oe fie ee ee ee ee 

ee ee 00 13 05 06 00 00 

00 32 13 02 52 41 4E 44 

44 45 4D 4F fi0 fi0 fie fi0 

fi0 fi0 fi0 fi0 00 00 00 00 

00 00 00 00 00 00 00 00 
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Sample printout from program SECTORPRINT 
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LINKING PROGRAMS AND SUBROUTINES WITH MENUS 

A menu is simply a program or subroutine which displays the 
different options available to the user in a program or 
program suite. The user can then use the menu to select an 
option, and the menu routine will either load the program or 
cause the program to jump to the start of the specified 
subroutine. A menu subroutine within a program is very 
simple, consisting of code to print the options list and a 
computed 'GOTO'. Examples of this type of routine are 
included in several programs in this book (eg: machine code 
sort package). A menu program to link and select different 
programs in a program suite is more complex, the following 
program ( MENU ) is an example. In this program lines 10 to 
150 print the option menu on the screen. Since this is an 
example the options are just called Program 1, Program 2 etc, 
in a real application this would be replaced by a description 
of the function. Lines 160 to 220 perform the function of 
loading the required program from disk drive zero. Line 160 
inputs a number which is equivalent to one of the numbers 
preceding the option description. In MENU this can be a 
number between 1 and 6. The selected program is then loaded 
by one of the lines between 170 and 220. A special trick is 
required to load one program from another using the disk, the 
trick requires the manipulation of the pointers to the start 
of the variable storage area in memory. These pointers are 
contained in locations 42 and 43, and should be loaded with 
the start of variable storage location for the program which 
is to be loaded. These values can be obtained by loading each 
program in the suite and PEEKing locations 42 and 43, noting 
the values for each program. In the example menu program the 
POKE values for locations 42 and 43 for each program are set 
to since there are obviously no programs, the correct 
values should be inserted. The reason each POKE value has 
three digits is that the values of locations 42 and 43 for 
the menu program must also be known before any values are 
inserted. If all numbers are entered as three digits, with 
leading digits zeros if required, then the menu program 
length will remain constant and the values for 42 and 43 will 
be constant. The values of the start of variables pointers 
for the menu are needed, since we want the menu program to be 
automatically loaded after each program in the suite has 
ended, instead of using the END command. See MERGE line 
1308,page 82,where sample values for locations 42 and 43 are 
given. These should be changed as necessary. 
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rn 
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-alii* 



4 

Q 
10 

28 
30 
40 
58 
60 
70 
30 
90 
1 0fi 

110 

128 
130 
148 
150 
160 
170 
1 80 
190 

200 

210 

220 

READY 



******************************** 
*MENU PROGRAM TO LINK DIFFERENT 
♦PROGRAMS IN A SUIT OF PROGRAMS 
♦TOGETHER. 



1 



REM 
REM 
REM 
REM 
REM 

PR I NT "n 

PRINT" 

PRINT 

PRINT" 

PRINT 

PRINT" 

PRINT 

PRINT" 

PRINT 
PRINT" 
PRINT 
PRINT" 
PRINT 
PRINT" 
PRINT 

GETfi*: IFA$=""THEN160 
IFA$=" 1 "THENP0KE42, 000 
I FA$= " 2 " THENP0KE42 , 800 
I FA*= " 3 " THENP0KE42 . 080 
I FA*= " 4 " THENP0KE42 , OOO 
I F A*= " 5 " THENP0KE42 , OOO 
IFA*=>"6"THENEND 



t> 



MENU" 



PROGRAM 1" 
PROGRAM 2" 
PROGRAM 3" 
PROGRAM 4' 
PROGRAM 5' 
END" 



FOKE4 
P0KE4 
P0KE4 
POKE4 
P0KE4 



yyy : lLR 

000 

888 

888 

888 



CLR 
CLR 
CLR 
CLR 



LOAD "8 
"8 
O 
O 
"S 



LOAD' 
LOAD' 
LOAD' 
LOAD' 



PRl 
PRC 
PRC 
PRC 
PRC 



)GRAM 
JGRAM 
)GRAM 
JGRflM 
JGRflM 



1", 



4", 8 

cr ii o 
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MISCELLANEOUS ROUTINES 



32TRACE 



This machine code utility program is intended for use with 
machines incorporating Basic 3.00 ROMs. Its function is to 
display each line of a Basic program as it is executed thus 
enabling the programmer to follow the logic flow of the 
program and detect where errors are occurring. The Basic 
loader for TRACE is loaded and run then initialised using the 
SYS command given by the loader program, prior to loading the 
Basic program to be tested. Having loaded the program, TRACE 
should be enabled using the SYS command given in the loader 
and the program run by typing RUN in the normal manner. Each 
line of he program will then be displayed in reverse field on 
line one of the screen as it is executed. 



DATAMAKER 

This program is designed to create a series of data 
statements containing the values of successive memory 
locations containing a machine code program. The data 
statements created can then be used with a simple Basic 
loader to load the values back into memory from a Basic 
program. DATAMAKER uses a technique of getting the computer 
to write its own program lines (see THE PET REVEALED' for 
further information on this subject). Having created the data 
statements, DATAMAKER should be deleted (to aid this it has 
been given line numbers from 60000 to 62000). 



32REPEAT 

This is another machine code program which allows a repeat 
key function to be added to a 16K or 32K Basic 3.00 PET. The 
Basic loader is loaded when the machine is first switched on 
and the repeat kev function will remain in the machine until 
it is switched off or the second cassette buffer is used. 
Once the repeat program is loaded the repeat function can be 
enabled with the command SYS(832), then any key will repeat 
if held down long enough. 



AUTOL 

A Basic program to automatically number lines when writing a 
program. Given the starting line number and line number 
increment, each line number will be displayed on the screen 
as lines are written. Simply enter the program line after the 
number and press return. The line will be entered into the 
program and the next line number displayed. Press the stop 
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key to stop the program. By -tinning the program and entering 
a line number and increment of program lines to be deleted 
then pressing return after esch line number this routine can 
be used to delete lines. 



SCREENPRINT 

This little subroutine will transfer any alphanumeric data on 
the screen on to the printer in the same format as displayed 
on screen. This routine is intended for the 3022 printer and 
variable PN controls the interline spacing on the printer. It 
should be adjusted to suit the application. 
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1 REM ******************************** 

2 REM *TPflCE PROGRAM FOR BASIC 3.60 ROM 

3 REM *MRCHINES. DISPLAYS EACH LIME OF A 

4 REM *PRnRRHM OH THE SCREEN AS IT IS 
=i REM *EXECiiTED. USE SVS COMMANDS SHOWN 
A REM *WHEN RUNNING THE PROGRAM, NOTE 

7 REM *THESE VALUES EACH TIME SINCh THEV 

8 REM *WILL VARV. 

3 REM ******************************** 
iO E=52 

20 DATA-342, 162,5, 189, 249,224, 149, 1 12, 282, 18,248, 169,239, 133, 125,96 
-M DATA173, -342, 133, 52, 173, -341, 133, 53, 169, 255, 133, 4^ 60^,16^, o_ 

4fi DATA134, 43, 162, 3, 32, -271 , 288, 249, 2UZ, i^tf*, 24b', o*:, -£< 1 , -^ > ^ ><* 
nn DATA121, 197, 162,5, 189,-6, 149, li2,202, 16,24o, lby,c:4^, iJJ. i^o^b 
"fSh D ATH230 ,42,268,2, 230 , 43 , 1 77 , 42 , 96 , 230 , 1 1 3 , 288 , 2 , kioW .>_ 1 M ,_ y b 
70 DATA32, 115, 0,3, 72, 133, 195, 138, 72, 152, 7^166^55, lb5 ; o4,xy,- 
30 DATA253,203,4,228,254,240,106,13o,^^,:^5,lJ4,^4, ^4,, ;i ,, 
9fl DATA152,208, 14, 169,3, 133, 187, ^, c^b , 25o, 1 Jb^Wb^oM^l Jo ; lU. , ^ 
iflfi DATA246,32,-54, 169, 160, 168, 88, 153, 255, 1^7, iJb^yb^..^ loc., lr 
118 DATH37,132,38,132,39,120,248,160,l-^.6,35,ob i ob.lbc:,^ i io^_ 
120 DATA40, 117,40, 149,40,232,43,247, lob, lb, 2o'b', ^lb, bo, be, a, w 
130 DATA48,133,103,134,102,181,37,72,74,74,74.,-4,oc:, : 44,ly4,4l 
140 DATA15,32,-44,166,102,202,16,233,32,-obSb^,-oo i lbo i ^o4 i l ; . f;/ l^ 
1=10 DATA240,55,165,195,208,4,133,253,240,4r,l6,4^,^yl,c:oo,^tio,o_ 
1 ffi DATA 1 b« . 1 RS . 32 , -30 , 24 ,114, 33 ,41,127,1 ?@ L 1 60 , 8 , 1 85 , 1 4o , 1 ^ : 4o 
170 DAT A:":. 200. 208, 248, 200, 202, 16,244, 135, 145, 1^, 4d,b, Jt', -.^^WW __ 
1*0 DATA208,245,41,127,32,-32,165,119,133 1 184,104,168,104,lry,l^.^ 

130 DATA96, 168, 173,64,232,41,32,208,249, 152, 96, 9,4a, iy,-- ; lUo, ^b'^ 
?fifl DATA4.1b4. 32, 208, 2, 198, 103, 41, 63, 3, l^b,lo^,ltffc,o^, -^.4, ib4^ t o^ 

210 DATAISS^, 123, 132, 195, 208, 2, 160, 7, 200, 132, lb2, 164, 10b, L-b, ,-b 

220 DATA-255 , 32 , -262 

308 S2=PEEK < E > +PEEK < E+ 1 > *256 : 3 1 =S2+D-344 

310 F0RJ=S1T0S2-1 

■-:■"' PEflDX : IFX">0OR> : :=0THENGOTO350 

330 V=:->S2 : N=INT<V/256> • Z=V-X*256 

340 P0KEJ,2 J=J+1 

350 POKE J, X 

408 PR I NT :i :i?M?*iWiSi»iMiM*i*»l;*TRACE " 

410 PRINT "WsW 

F.flfi PF INT" INITIALISE WITH 3VS( ".: 31 + 17" "■ " 
518 PR I NT !! ENABLE WITH SV3< " ; bl+5t 
^20 PR I NT "DISABLE WITH S¥S(";S1+, 
538 PF I NT" CHANGE SPEED WITH POKE" ; S1+125-D" , > 
54tf L.NB 
READV. 



j- ■,■■ H • ci j.=.f," ';. " 
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a 
> 



> 

rn 
73 



1 089 

1001 
1 002 
1003 
1 004 
1005 
1006 
1007 
100S 
1009 
1010 
1011 

1012 
1013 
1014 

1020 

68000 

68010 

60020 
68838 
68050 
60068 
68878 
60 1 08 
60280 
68388 
68318 
60330 
68348 
68358 
68488 
68588 
68688 
68788 
68888 
68988 
61888 
61188 
6 1 288 
61388 
61488 
61588 
62888 
READV. 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



♦THIS PROGRAM WILL CONVERT A 
♦MACHINE CODE PROGRflfMSTORED IN 
♦MEMORV INTO A SERIES OF DATA 
♦STATEMENTS WHICH CAN BE USED 
#BV A BASIC LOADER PROGRAM TO 
♦LOAD THE MACHINE CODE INTO THE 
♦FROM BASIC. SPECIFV THE START 
♦AND END MEMORV LOCATION OF THE 
♦MACHINE CODE (IN DECIMAL;'. 
♦THE DATA STATEMENTS CONTAIN THE 



♦ALSO SPECIFV THE STARTING LINE 
♦NUMBER AND INCREMENT OF THE 
♦DATA STATEMENTS (LINE 68888)- 



REM . 

REM ♦VALUES OF EACH BVTE IN DECIMAL. 

REM 

REM 

REM 

REM 

INPUT".13TART#, STEP" ; S, T 

I NPUT " START ADDRESS DEC I MAL " ; B 

F=B:L=F+10 

I NPUT " END ADDRESS DEC I MAL " ; E 

PRINT"MWWW" 

P0KE831,INKE/256> 

P0KE832 , E- 1 NT < E/256 ) ^256 

P0KES28, T : GOTO60588 

S=PEEK < 826 > ♦256+PEEK < 827 > 

T=PEEK<828> 

L=PEEK < 829 > *256+PEEK < 838 > 

E=PEEK < 83 1 ) ♦256+PEEK < 832 > 

I FL>=EGOTO62088 

F=L+l:L=L+19 

PRINT".! 

PRINTS; 

PR I NT "DATA"; 

FORP=FTOL : PR I NTPEEK < P > ; " II, " ; : NE^TP 

PR I NT" II " 

PR I NT " GOTO60200.TTT1" ; 

POKE 158,2: P0KE623 , 1 3 ; P0KE624 , 1 3 

S=S+T 

P0KE826,INTc:s/256> 

P0KE827 , S- 1 NT < S/256 ) ^256 

PGKE829,INT(L,-'256> 

POKE830 , L- 1 NT < L/256 > ^256 : END 

STOP 
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pa 
m 

m 
> 



10 

20 
30 
40 

50 

1 flS 
110 
120 

130 
140 
150 



******************************* 

♦BASIC LOADER FOR 
♦MACHINE CODE PROGRAM TO ADD H 
♦REPEAT KEV FUNCTION TO A 32 K 
♦PET. HOLDING THE KEV DOWN WILL 
♦CAUSE IT TO REPEAT. INITIALISE 
♦WITH SVS<832>. 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

FGRQ=832T0891 

READA 

POKEQ..A 

NEXTQ 



oA'-/o - osy& 



END 
DATA 1 20 , 1 69 , 79 , 1 33 ,144,1 69 , 3 , 1 33 , 
DATA 1 , 1 33 , 2 , 88 , 96 , 165,151,197 , 8 , 2 
DATA 1 33 , O , 1 69 , 16,1 33 , 1 , 76 , 46 , 230 , 
DATA240, 249, 165, 1 , 248, 4, 198, 1 , 288 
DATA 1 98 , 2 , 208 , 237 , 1 69 ,4,1 33 ,2,1 69 
DATA151 , 169, 2, 133, 163, 288, 223 



145 
48, 
281 
,24 
8, 



,169 



1 
13:] 



RE ADV. 



> 

c 

H 

o 

r 



♦R8UTINE T8 AUT8MATICALV 
♦NUMBER LINES WHEN WRITING 
♦A PROGRAM, ENTER START 
♦LINE AND LINE INCREMENT 
♦THEN ENTER PROGRAM LINES- 
RAFTER LINE NUMBER. 



1888 REM 
1818 REM 
1828 REM 
1838 REM 
1848 REM 
1858 REM 
1868 REM 
1878 REM 
68888 I NPUT " ."I5TART# , STEP " ; S , T 
68858 PRINT":««!Mi!l" 
68 1 88 P8KE828 , T -" G8T868588 
68286 S=PEEK ( 826 ') *256+PEEK < 827 ) 
68308 T=PEEK < 828 .-■ 
68488 PRINT".! 
68588 PRINTS, 

68788 GETD* ■ I FD*= " " THEN68788 
68888 PRINTD*; : IFASC<D*>013THEN68788 
68988 PR I NT " G0T068288Tn" .; 
6 1 888 P8KE 1 58 , 2 : P8KE623 ,13- P8KE624 , 1 3 
61188 S=S+T 

61288 P8KE826, INT<:S/256> 
6 1 388 P8KE827 , S- 1 NT (. S/256 > *256 : END 
RE ADV. 
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REM 
REM 
OPEN 



10 f--N=24 
20 SP*=" 
25000 REM 
25001 
25009 
25010 
25020 
25030 
25040 
25050 
25060 
25070 
25080 
REfiDV. 



Z 

5 

Qu 
Z 

UJ 
UJ 
OS 

u 



f:PEEH PRINTER SUBROUTINE 
****************************** 

4,b:pRIHT#3,CHR$<PN> 
0PEH4, 4 : PRINT#4, " " : PRINT#4, SP*.i 
FORQ=0TO939 : fi=PEEK<Q+32768> 
B= < HAND 1 27 ■' OR < <■. HflND64 > *2 > OR < ■: fc.4-fifiHB3 
PRIHT#4,CHRf CB>; 

X=X+1 : IFX=40THENPRINT#4, "" :PRINT#4,SP 
NEXT : CL0SE4 
RETURN 



2>*2:: 



: J<=H 
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